home *** CD-ROM | disk | FTP | other *** search
/ CYBER.XPO.95 / CYBER.XPO.95 (Arsenal Computer).ISO / popreq / amiga1 / blands.lha / BL next >
Text File  |  1980-12-12  |  153KB  |  5,443 lines
  1. /* BattleLands:Realm of the Bloodsuckers */
  2. /* By Wayne Stewart of The Doctor's Office BBS */
  3. /* (513)256-3809 */
  4.  
  5. Options results
  6. bufferflush
  7. signal on error
  8. signal on syntax
  9. signal on halt
  10. path='pfiles:Battlelands/'
  11. upath='pfiles:Battlelands/users/'
  12. dpath='pfiles:Battlelands/docs/'
  13. wpath='pfiles:Battlelands/weapons/'
  14. apath='pfiles:Battlelands/armor/'
  15. cpath='pfiles:Battlelands/classes/'
  16. rpath='pfiles:Battlelands/races/'
  17. mpath='pfiles:Battlelands/maps/'
  18. spath='pfiles:Battlelands/screens/'
  19. epath='pfiles:Battlelands/monsters/'
  20. npath='pfiles:Battlelands/NPCs/'
  21. mmpath='pfiles:Battlelands/Menus/'
  22. tpath='pfiles:Battlelands/Thoughts/'
  23. sspath='pfiles:battlelands/skills/'
  24. p='###PANIC'
  25. moves=0
  26. changewhere 'Conquering Lands'
  27. changewhat 'Conquering Lands'
  28.  
  29. getuser 28
  30. term=result
  31. if term<2 then do
  32. transmit 'n1cfYou need IBM GFX to play Battle Lands.'
  33. transmit 'n1cc16 color mode will also help greatly.w2'
  34. exit
  35. end 
  36.  
  37. SENDFILE spath||'title.ans'
  38.  
  39. getuser 1
  40. name=result
  41. if exists(upath'stats/'name)=1 then signal loadsaved
  42. transmit 'caAhh! A new Warrior! Let us set you up!w2'
  43. BL='w'
  44. if exists(upath||'battlers')=1 then BL='a'
  45. call open(1,upath||'battlers',BL)
  46. call writeln(1,name)
  47. call close(1)
  48. signal startchar
  49.  
  50. reroll:
  51. transmit 'n1cfBad news! You have died!! You may reroll now!w2'
  52. transmit 'n1ceAnswer c9NO ceif you wish to heal your current character instead!'
  53. money=300*level
  54. signal rusure
  55.  
  56. main:
  57. transmit 'f1'
  58. bufferflush
  59. if incity#=2 then sendfile mmpath||'menu2.ans'
  60. if incity#=1 then sendfile mmpath||'menu1.ans' 
  61. sendstring "n2cbYOUR COMMANDce>> c9"
  62. getchar
  63. mn=upper(result);transmit mn
  64. if mn=p then signal quit
  65. if mn='' then signal main
  66. if mn='Q' then signal quit
  67. if mn='S' then signal rusure
  68. if mn='V' then signal viewchar
  69. if mn='L' then signal listbattlers
  70. if mn='Y' then signal spy
  71. if mn='M' then signal shop
  72. if mn='F' then signal fightplayer
  73. if mn='C' then signal computerdocs
  74. if mn='B' then signal bank
  75. if mn='G' then signal startmove
  76. if mn='A' then signal transporter
  77. if mn='J' then signal college
  78. if mn='T' then signal mugger
  79. signal main
  80.  
  81. Mugger:
  82. if class=rogue then signal mugger1
  83. transmit 'f1s1n2cfYou do not possess the skills to rob people!!!s0w2'
  84. signal main
  85.  
  86. mugger1:
  87. if level>3 then signal mugger2
  88. transmit 'f1s1n2cfNice try! You''re a rogue but not high enough in level!s0w1'
  89. signal main
  90.  
  91. mugger2:
  92. query 'cbQUICKLY NOW!!! Who are you gonna rob? [c9Lcbist or c9Qcbuit] '
  93. pl=upper(result)
  94. if pl=p then signal quit
  95. if pl='' then signal mugger
  96. if pl='L' then signal Battlers1
  97. if pl='Q' then signal main
  98. if exists(upath'Stats/'pl)=1 then signal mugger3
  99. transmit 'c9'pl'cf is not in the land! Try ceLcf to list!w2'
  100. signal mugger2
  101.  
  102. mugger3:
  103. call loadopponent1
  104. klevel=oplevel-1
  105. if level>klevel then signal mugger4
  106. transmit 'c1You are not skilled enough to rob c7'pl'c1.'
  107. transmit 'c3Try again after you have gained some levels!w2'
  108. signal mugger2
  109.  
  110. mugger4:
  111. booty=VRnd(1,10)+level
  112. if booty<12 then signal loot
  113. if booty=13 then signal jeans
  114. if booty>14 then signal killme
  115. signal main
  116.  
  117. loot:
  118. transmit 'ceYou stole $cf'opmoney 'cefrom' pl'!w2'
  119. money=money+opmoney
  120. opmoney=opmoney-opmoney
  121. signal saveopponent
  122. signal main
  123.  
  124. jeans:
  125. transmit 'ceYou just tookcf' oparmor 'cefrom' pl'!!w2'
  126. armor=oparmor
  127. oparmor=naked
  128. opac=2
  129. signal saveopponent
  130. signal main
  131.  
  132. killme:
  133. transmit 'ceYou just took acf' opweapon 'cefrom' pl'!!w2'
  134. weapon=opweapon
  135. opweapon=fist
  136. opdamage=4
  137. signal saveopponent
  138. signal main 
  139.  
  140. secondround:
  141. transmit 'c9YOU HAVE CONQUERED THE BATTLE LANDS!!! YOU MUST REROLL!!!'
  142. sendstring 'caDO YOU WISH TO REROLL?? ANSWERING NO WILL KICK YOU OUT! '
  143. getchar
  144. wor=upper(result)
  145. if wor=p then signal quit
  146. if wor='Q' then signal quit
  147. if wor='N' then signal quit
  148. if wor='Y' then signal startchar
  149. signal quit
  150.  
  151. rusure:
  152. sendstring 'n1c3ARE YOU SURE? THIS WILL DELETE ANY CURRENT DATA!c9 [Yes] '
  153. getchar
  154. ss=upper(result)
  155. if ss='N' then signal main
  156. if ss=p then signal quit
  157. if ss='' then signal startchar
  158. signal startchar
  159.  
  160. startchar:
  161. transmit 'n1c9Starting Fresh...let me set you upw2'
  162. money=10000
  163. weapondam=2
  164. experience=0
  165. level=1
  166. elecstorm=no
  167. mentalpunch=no
  168. heal1=no
  169. blast1=no
  170. shield1=no
  171. muscle=no
  172. heal2=no
  173. blast2=no
  174. shield2=no
  175. metalstorm=no
  176. lightning=no
  177. missile=no
  178. nuke=no
  179. nuke2=no
  180. devastate=no
  181. heal3=no
  182. summons=no
  183. rage=no
  184. becomesteel=no
  185. muschip=no
  186. physchip=no
  187. linkchip=no
  188. menchip=no
  189. kadchip=no
  190. pirchip=no
  191. medkit=0
  192. meduses=0
  193. infogog=no
  194. cboots=no
  195. weapon=fist
  196. armor=naked
  197. assault=0
  198. mountaineer=0
  199. computers=0
  200. historian=0
  201. salesman=0
  202. governments=0
  203. medical=0
  204. religion=0
  205. racestudy=0
  206. defense=0
  207. disguise=0
  208. gambling=0
  209. complete=no
  210. next=2000
  211. pfight=0
  212. maxpfight=3
  213. turn=0
  214. maxturn=4
  215. map=0
  216. x=0
  217. y=1
  218. magic=no
  219. account=0
  220. key1=no
  221. key2=no
  222. key3=no
  223. key4=no
  224. key5=no
  225. tpass=no
  226. flight=no
  227. uvir=no
  228. radit=no
  229. fvk=no
  230. fshield=no
  231. flaga=no
  232. flagb=no
  233. flagc=no
  234. flagd=no
  235. flage=no
  236. bmarket=no
  237. incity#=1
  238. city1=yes
  239. city2=no
  240. city3=no
  241. city4=no
  242. city5=no 
  243. magnagren=0
  244. novagren=0
  245. visits=0
  246. call race1
  247.  
  248. listbattlers:
  249. transmit 'f1n2ceHere is a list of the mighty Battlers from c9The Battle Landsn1'
  250. transmit '*1pfiles:battlelands/users/battlers}'
  251. transmit 'n1caHit a key to stop staring...g1'
  252. signal main
  253.  
  254. race1:
  255. transmit 'f1'
  256. sendfile mmpath||'race.ans'
  257. sendstring 'n1cbCHOOSE A RACE FROM THE LIST ABOVEce>> c9'
  258. getchar
  259. rt=upper(result)
  260. if rt=p then signal quit
  261. if rt='' then signal race1
  262. if rt='V' then signal vampire
  263. if rt='H' then signal human
  264. if rt='G' then signal giant
  265. if rt='R' then call runt
  266. if rt='T' then signal thinker
  267. if rt='B' then signal brain
  268. signal race1
  269.  
  270. vampire:
  271. health=40
  272. maxhealth=40
  273. strength=21
  274. mental=21
  275. endurance=18
  276. agility=15
  277. race=Vampire
  278. mrating=20
  279. maxmrating=20
  280. ac=3
  281. transmit 'n1caYou have chosen to be a Vampire!!!w2'
  282. call class
  283.  
  284. human:
  285. health=30
  286. maxhealth=30
  287. strength=18
  288. mental=18
  289. endurance=17
  290. agility=22
  291. race=Human
  292. mrating=15
  293. maxmrating=15
  294. ac=2
  295. transmit 'n1caYou have chosen to be a Human!!!w2'
  296. call class
  297.  
  298. giant:
  299. health=35
  300. maxhealth=35
  301. strength=24
  302. mental=15
  303. endurance=19
  304. agility=16
  305. race=Giant
  306. mrating=10
  307. maxmrating=10
  308. ac=3
  309. transmit 'n1caYou have chosen to be a Giant!!!w2'
  310. call class
  311.  
  312. Runt:
  313. health=35
  314. maxhealth=35
  315. strength=21
  316. mental=16
  317. endurance=19
  318. agility=23
  319. race=Runt
  320. mrating=10
  321. maxmrating=10
  322. ac=4
  323. transmit 'n1caYou have chosen to be a Runt!!!w2'
  324. call class
  325.  
  326. Brain:
  327. health=25
  328. maxhealth=25
  329. strength=14
  330. mental=25
  331. endurance=17
  332. agility=14
  333. race=Brain
  334. mrating=30
  335. maxmrating=30
  336. ac=1
  337. transmit 'n1caYou have chosen to be a Brain!!!w2'
  338. call class
  339.  
  340. Thinker:
  341. health=30
  342. maxhealth=30
  343. strength=17
  344. mental=22
  345. endurance=18
  346. agility=17
  347. race=Thinker
  348. mrating=25
  349. maxmrating=25
  350. ac=2
  351. transmit 'n1caYou have chosen to be a Thinker!!!w2'
  352. call class
  353.  
  354. class:
  355. transmit 'f1'
  356. sendfile mmpath||'class.ans'
  357. sendstring "n2c9Now choose a class from this listce>> c9"
  358. getchar
  359. cl=upper(result);transmit cl
  360. if cl=p then signal quit
  361. if cl='' then signal class
  362. if cl='M' then signal mentalist
  363. if cl='R' then signal rogue
  364. if cl='X' then signal xpert
  365. if cl='K' then signal knight
  366. if cl='A' then signal assassin
  367. if cl='G' then signal globalist
  368. signal class
  369.  
  370. mentalist:
  371. mrating=mrating+10
  372. maxmrating=maxmrating+10
  373. elecstorm=yes
  374. heal1=yes 
  375. thaco=13
  376. magic=yes
  377. class=Mentalist
  378. maggy=20
  379. pointsup=10
  380. transmit 'n1ceYou have chosen to be acf' race 'Mentalistce!w2'
  381. call done
  382.  
  383. rogue:
  384. agility=agility+1
  385. thaco=10
  386. ac=ac+1
  387. class=Rogue
  388. maggy=5
  389. pointsup=15
  390. transmit 'n1ceYou have chosen to be acf' race 'Roguece!w2'
  391. call done
  392.  
  393. assassin:
  394. agility=agility+1
  395. thaco=10
  396. class=Assassin
  397. ac=ac+1
  398. maggy=5
  399. pointsup=15
  400. transmit 'n1ceYou have chosen to be acf' race 'Assassince!w2'
  401. call done
  402.  
  403. knight:
  404. strength=strength+1
  405. agility=agility+1
  406. thaco=9
  407. maggy=5
  408. class=Knight
  409. ac=ac+1
  410. pointsup=20
  411. transmit 'n1ceYou have chosen to be acf' race 'Knightce!w2'
  412. call done
  413.  
  414. xpert:
  415. agility=agility+2
  416. thaco=9
  417. class=Arms Expert
  418. ac=ac+1
  419. maggy=5
  420. pointsup=20
  421. transmit 'n1ceYou have chosen to be acf' race 'Arms Expertce!w2'
  422. call done
  423.  
  424. globalist:
  425. agility=agility+2
  426. mental=mental+1
  427. endurance=endurance+1
  428. thaco=11
  429. maggy=15
  430. magic=yes
  431. class=Globalist
  432. ac=ac+2
  433. pointsup=15
  434. elecstorm=yes
  435. transmit 'n1ceYou have chosen to be acf' race 'Globalistce!w2'
  436. call done
  437.  
  438. spy:
  439. transmit 'f1c9s1Plugging into the network terminal...s0n1'
  440. query 'ceEnter the name of the enemy you wish revealed.c9[cbLcfist, cbQcfuitc9] '
  441. pl=upper(result)
  442. if pl=p then signal quit
  443. if pl='' then signal spy
  444. if exists(upath'Stats/'pl)=1 then signal spy1
  445. if pl='L' then signal Battlers
  446. if pl='Q' then signal main
  447. transmit 'c9'pl'cf is not in the land! Try ceLcf to list!w2'
  448. signal spy
  449.  
  450. spy1:
  451. call loadopponent1
  452. know=opmental-1
  453. if know<=mental then signal spy2
  454. transmit 'c1You are not smart enough to spy on c7'pl'c1.'
  455. transmit 'c3Try again after you have gained some skills!w2'
  456. signal spy
  457.  
  458. battlers:
  459. transmit 'f1n2ceHere is a list of the mighty Battlers from c9The Battle Landsn1'
  460. transmit '*1pfiles:battlelands/users/battlers}'
  461. transmit 'n1caHit a key to stop staring...g1'
  462. signal spy
  463.  
  464. battlers1:
  465. transmit 'f1n2ceHere is a list of the mighty Battlers from c9The Battle Landsn1'
  466. transmit '*1pfiles:battlelands/users/battlers}'
  467. transmit 'n1caHit a key to stop staring...g1'
  468. signal mugger2
  469.  
  470. battlers2:
  471. transmit 'f1n2ceHere is a list of the mighty Battlers from c9The Battle Landsn1'
  472. transmit '*1pfiles:battlelands/users/battlers}'
  473. transmit 'n1caHit a key to stop staring...g1'
  474. signal war
  475.  
  476. loadopponent1:
  477. call open(1,upath||'stats/'||pl)
  478. opmoney=readln(1)
  479. ophealth=readln(1)
  480. opmaxhealth=readln(1)
  481. opstrength=readln(1)
  482. opagility=readln(1)
  483. opendurance=readln(1)
  484. opmental=readln(1)
  485. opexperience=readln(1)
  486. oplevel=readln(1)
  487. opclass=readln(1)
  488. oprace=readln(1)
  489. opweapon=readln(1)
  490. oparmor=readln(1)
  491. opmrating=readln(1)
  492. opmaxmrating=readln(1)
  493. opelecstorm=readln(1)
  494. opmentalpunch=readln(1)
  495. opheal1=readln(1)
  496. opblast1=readln(1)
  497. opshield1=readln(1)
  498. opmuscle=readln(1)
  499. opheal2=readln(1)
  500. opblast2=readln(1)
  501. opshield2=readln(1)
  502. opmetalstorm=readln(1)
  503. oplightning=readln(1)
  504. opmissile=readln(1)
  505. opnuke=readln(1)
  506. opnuke2=readln(1)
  507. opdevastate=readln(1)
  508. opheal3=readln(1)
  509. opsummons=readln(1)
  510. oprage=readln(1)
  511. opbecomesteel=readln(1)
  512. opmuschip=readln(1)
  513. opphyschip=readln(1)
  514. oplinkchip=readln(1)
  515. opmenchip=readln(1)
  516. opkadchip=readln(1)
  517. oppirchip=readln(1)
  518. opmedkit=readln(1)
  519. opmeduses=readln(1)
  520. opinfogog=readln(1)
  521. opcboots=readln(1)
  522. opac=readln(1)
  523. opthaco=readln(1)
  524. opassault=readln(1)
  525. opmountaineer=readln(1)
  526. opcomputers=readln(1)
  527. ophistorian=readln(1)
  528. opsalesman=readln(1)
  529. opgovernments=readln(1)
  530. opmedical=readln(1)
  531. opreligion=readln(1)
  532. opracestudy=readln(1)
  533. opdefense=readln(1)
  534. opdisguise=readln(1)
  535. opgambling=readln(1)
  536. opdamage=readln(1)
  537. opcomplete=readln(1)
  538. opweapondam=readln(1)
  539. opstrdam=readln(1)
  540. opnext=readln(1)
  541. oppfight=readln(1)
  542. opmaxpfight=readln(1)
  543. opturn=readln(1)
  544. opmaxturn=readln(1)
  545. opmap=readln(1)
  546. opx=readln(1)
  547. opy=readln(1)
  548. opmagic=readln(1)
  549. opaccount=readln(1)
  550. opkey1=readln(1)
  551. opkey2=readln(1)
  552. opkey3=readln(1)
  553. opkey4=readln(1)
  554. opkey5=readln(1)
  555. oppointsup=readln(1)
  556. optpass=readln(1)
  557. opflight=readln(1)
  558. opuvir=readln(1)
  559. opradit=readln(1)
  560. opfvk=readln(1)
  561. opfshield=readln(1)
  562. opflaga=readln(1)
  563. opflagb=readln(1)
  564. opflagc=readln(1)
  565. opflagd=readln(1)
  566. opflage=readln(1)
  567. opmaggy=readln(1)
  568. opbmarket=readln(1)
  569. opincity#=readln(1)
  570. opcity1=readln(1)
  571. opcity2=readln(1)
  572. opcity3=readln(1)
  573. opcity4=readln(1)
  574. opcity5=readln(1) 
  575. opmagnagren=readln(1)
  576. opnovagren=readln(1)
  577. opvisits=readln(1)
  578. call close(1)
  579. return
  580.  
  581. spy2:
  582. transmit 'f1cdStatistics for 'pl'n1'
  583. transmit 'ceMoney          $cf'opmoney
  584. transmit 'ceHealth         :cf'ophealth' ceout of: c9'opmaxhealth
  585. transmit 'ceStrength       :cf'opstrength
  586. transmit 'ceAgility        :cf'opagility
  587. transmit 'ceEndurance      :cf'opendurance
  588. transmit 'ceMental         :cf'opmental
  589. transmit 'ceExperience     :cf'opexperience
  590. transmit 'ceLevel          :cf'oplevel
  591. transmit 'ceClass          :cf'opclass
  592. transmit 'ceRace           :cf'oprace
  593. transmit 'ceWeapon         :cf'opweapon
  594. transmit 'ceMental Rating  :cf'opmrating' ceout of: c9'opmaxmrating
  595. transmit 'ceArmor Class    :cf'opac
  596. transmit 'c1Hit a key to continue...g1'
  597. if fvk=yes then signal fullviewspy
  598. signal spy
  599.  
  600. fullviewspy:
  601. transmit 'n1f1cdInventory of the Battler c9'pl
  602. transmit 'ceMuscle Chip   :cf' left(opmuschip' ',3) 'cePhysical Chip :cf' left(opphyschip' ',3) 'ceLink Chip     :cf' oplinkchip
  603. transmit 'ceMental Chip   :cf' left(opmenchip' ',3) 'ce20kad Chip    :cf' left(opkadchip' ',3) 'cePirate Chip   :cf' oppirchip
  604. transmit 'ceMedical Kits  :cf' left(opmedkit' ',3) 'ceInfo Goggles  :cf' left(opinfogog' ',3) 'ceClimbing Boots:cf' opcboots
  605. transmit 'n1cdMagic of the Battler c9'pl
  606. transmit 'ceElectric Storm :cf' left(opelecstorm' ',3) 'ceMental Punch   :cf' left(opmentalpunch' ',3) 'ceLow Healing    :cf' opheal1
  607. transmit 'ceLow Blast      :cf' left(opblast1' ',3) 'ceLow Shield     :cf' left(opshield1' ',3) 'ceMuscle Gain    :cf' opmuscle
  608. transmit 'ceHigh Healing   :cf' left(opheal2' ',3) 'ceHigh Blast     :cf' left(opblast2' ',3) 'ceHigh Shield    :cf' opshield2
  609. transmit 'ceMetal Storm    :cf' left(opmetalstorm' ',3) 'ceLightning Bolt :cf' left(oplightning' ',3) 'ceMissile        :cf' opmissile
  610. transmit 'ceNuke           :cf' opnuke
  611. transmit 'n1cdSkill levels of the Battler c9'pl
  612. transmit 'ceAssault     :cf' left(opassault' ',3)'cb% ceMountaineer :cf' left(opmountaineer' ',3)'cb% ceComputers   :cf' opcomputers'cb%' 
  613. transmit 'ceHistory     :cf' left(ophistorian' ',3)'cb% ceSalesman    :cf' left(opsalesman' ',3)'cb% ceGovernment  :cf' opgovernments'cb%'
  614. transmit 'ceMedical     :cf' left(opmedical' ',3)'cb% ceReligion    :cf' left(opreligion' ',3)'cb% ceRace Studies:cf' opracestudy'cb%'
  615. transmit 'ceDefense     :cf' left(opdefense' ',3)'cb% ceDisguise    :cf' left(opdisguise' ',3)'cb% ceGambling    :cf' opgambling'cb%'
  616. transmit 'n1c9Bank Account # :ca' opaccount    'c9Transport Pass :ca' optpass
  617. transmit 'c9Spy Net Key    :ca' opfvk          'c9To Hit AC 0  :ca' opthaco  
  618. transmit 'n1cbHit any key to continue...g1'
  619. signal spy
  620.  
  621. saveopponent:
  622. call open(1,upath||'stats/'||pl,'w')
  623. call writeln(1,opmoney)
  624. call writeln(1,ophealth)
  625. call writeln(1,opmaxhealth)
  626. call writeln(1,opstrength)
  627. call writeln(1,opagility)
  628. call writeln(1,opendurance)
  629. call writeln(1,opmental)
  630. call writeln(1,opexperience)
  631. call writeln(1,oplevel)
  632. call writeln(1,opclass)
  633. call writeln(1,oprace)
  634. call writeln(1,opweapon)
  635. call writeln(1,oparmor)
  636. call writeln(1,opmrating)
  637. call writeln(1,opmaxmrating)
  638. call writeln(1,opelecstorm)
  639. call writeln(1,opmentalpunch)
  640. call writeln(1,opheal1)
  641. call writeln(1,opblast1)
  642. call writeln(1,opshield1)
  643. call writeln(1,opmuscle)
  644. call writeln(1,opheal2)
  645. call writeln(1,opblast2)
  646. call writeln(1,opshield2)
  647. call writeln(1,opmetalstorm)
  648. call writeln(1,oplightning)
  649. call writeln(1,opmissile)
  650. call writeln(1,opnuke)
  651. call writeln(1,opnuke2)
  652. call writeln(1,opdevastate)
  653. call writeln(1,opheal3)
  654. call writeln(1,opsummons)
  655. call writeln(1,oprage)
  656. call writeln(1,opbecomesteel)
  657. call writeln(1,opmuschip)
  658. call writeln(1,opphyschip)
  659. call writeln(1,oplinkchip)
  660. call writeln(1,opmenchip)
  661. call writeln(1,opkadchip)
  662. call writeln(1,oppirchip)
  663. call writeln(1,opmedkit)
  664. call writeln(1,opmeduses)
  665. call writeln(1,opinfogog)
  666. call writeln(1,opcboots)
  667. call writeln(1,opac)
  668. call writeln(1,opthaco)
  669. call writeln(1,opassault)
  670. call writeln(1,opmountaineer)
  671. call writeln(1,opcomputers)
  672. call writeln(1,ophistorian)
  673. call writeln(1,opsalesman)
  674. call writeln(1,opgovernments)
  675. call writeln(1,opmedical)
  676. call writeln(1,opreligion)
  677. call writeln(1,opracestudy)
  678. call writeln(1,opdefense)
  679. call writeln(1,opdisguise)
  680. call writeln(1,opgambling)
  681. call writeln(1,opdamage)
  682. call writeln(1,opcomplete)
  683. call writeln(1,opweapondam)
  684. call writeln(1,opstrdam)
  685. call writeln(1,opnext)
  686. call writeln(1,oppfight)
  687. call writeln(1,opmaxpfight)
  688. call writeln(1,opturn)
  689. call writeln(1,opmaxturn)
  690. call writeln(1,opmap)
  691. call writeln(1,opx)
  692. call writeln(1,opy)
  693. call writeln(1,opmagic)
  694. call writeln(1,opaccount)
  695. call writeln(1,opkey1)
  696. call writeln(1,opkey2)
  697. call writeln(1,opkey3)
  698. call writeln(1,opkey4)
  699. call writeln(1,opkey5)
  700. call writeln(1,oppointsup)
  701. call writeln(1,optpass)
  702. call writeln(1,opflight)
  703. call writeln(1,opuvir)
  704. call writeln(1,opradit)
  705. call writeln(1,opfvk)
  706. call writeln(1,opfshield)
  707. call writeln(1,opflaga)
  708. call writeln(1,opflagb)
  709. call writeln(1,opflagc)
  710. call writeln(1,opflagd)
  711. call writeln(1,opflage)
  712. call writeln(1,opmaggy)
  713. call writeln(1,opbmarket)
  714. call writeln(1,opincity#)
  715. call writeln(1,opcity1)
  716. call writeln(1,opcity2)
  717. call writeln(1,opcity3)
  718. call writeln(1,opcity4)
  719. call writeln(1,opcity5)
  720. call writeln(1,opmagnagren)
  721. call writeln(1,opnovagren)
  722. call writeln(1,opvisits)
  723. call close(1)
  724. return
  725.  
  726. done:
  727. call strength1
  728.  
  729. donea:
  730. signal strength2
  731.  
  732. doneb:
  733. if flagd=yes then signal donec
  734. thaco=thaco-bhit
  735.  
  736. donec:
  737. damage=weapondam+strdam
  738. call savestats
  739. signal main
  740.  
  741. computerdocs:
  742. transmit 'f1n2ces1Plugging into the computer networkw2s0'
  743. transmit 'n1cbYou are in!w2'
  744. signal computerdocs1
  745.  
  746. computerdocs1:
  747. transmit 'f1'
  748. sendfile mmpath||'comp.ans'
  749. query 'n2cbWhat file would you like to review?ce>> '
  750. fl=upper(result);transmit 'c9'fl
  751. if fl=p then signal quit
  752. if fl='Q' then signal main
  753. if fl='' then signal computerdocs1
  754. if fl<1 then signal computerdocs1
  755. if fl=1 then signal governmenta
  756. if fl=2 then signal magic1
  757. if fl=3 then signal hospitald
  758. if fl=4 then signal bankd
  759. if fl=5 then signal historyd
  760. if fl=6 then signal mapsd
  761. if fl=7 then signal weaponsd
  762. if fl=8 then signal armord
  763. if fl=9 then signal religiond
  764. if fl=10 then signal racestudd
  765. if fl=11 then signal gamblingd
  766. if fl=12 then signal classesd
  767. if fl=13 then signal monstersd
  768. if fl=14 then signal messaged
  769. if fl=eyespy then signal spynetd
  770. if fl=modsquad then signal bmarketd
  771. transmit 's1c9I do not see such an option on the menu! Hmmm!w2s0'
  772. signal computerdocs1
  773.  
  774. spynetd:
  775. if level>10 then signal spyhead
  776. transmit 'n1ceYou are not high enough in level to enter the SpyNet!w2'
  777. signal computerdocs1
  778.  
  779. spyhead:
  780. transmit 'f1n3cds1Entering the Spy Net...s0w2'
  781. signal spy
  782.  
  783. messaged:
  784. transmit 'c9Sorry this is not yet available in the current version!w2'
  785. signal computerdocs1
  786.  
  787. hospitald:
  788. if medical>50 then signal hospitaldd
  789. transmit 'ceYou need a degree in Medicine to open this linkw2'
  790. signal computerdocs1
  791.  
  792. hospitaldd:
  793. hl=VRnd(1,9)+level
  794. if hl<15 then hl=15 
  795. if hl>23 then hl=23
  796. if hl=15 then sendfile dpath||'hos15'
  797. if hl=16 then sendfile dpath||'hos16'
  798. if hl=17 then sendfile dpath||'hos17'
  799. if hl=18 then sendfile dpath||'hos18'
  800. if hl=19 then sendfile dpath||'hos19'
  801. if hl=20 then sendfile dpath||'hos20'
  802. if hl=21 then sendfile dpath||'hos21'
  803. if hl=22 then sendfile dpath||'hos22'
  804. if hl=23 then sendfile dpath||'hos23'
  805. signal computerdocs1
  806.  
  807. bankd:
  808. if computers>70 then signal bankdd
  809. transmit 'ceYou need a higher Computer degree to open this linkw2'
  810. signal computerdocs1
  811.  
  812. bankdd:
  813. bd=VRnd(1,2)+6+level
  814. if bd<15 then bd=15
  815. if bd>25 then bd=25
  816. if bd=15 then sendfile dpath||'bank15'
  817. if bd=16 then sendfile dpath||'bank16'
  818. if bd=17 then sendfile dpath||'bank17'
  819. if bd=18 then sendfile dpath||'bank18'
  820. if bd=19 then sendfile dpath||'bank19'
  821. if bd=20 then sendfile dpath||'bank20'
  822. if bd=21 then sendfile dpath||'bank21'
  823. if bd=22 then sendfile dpath||'bank22'
  824. if bd=23 then sendfile dpath||'bank23'
  825. if bd=24 then sendfile dpath||'bank24'
  826. if bd=25 then sendfile dpath||'bank25'
  827. signal computerdocs1
  828.  
  829. historyd:
  830. if historian>50 then signal historydd 
  831. transmit 'ceYou need a degree in History to open this linkw2'
  832. signal computerdocs1
  833.  
  834. historydd:
  835. hst=VRnd(1,6)+level
  836. if hst<10 then hst=10
  837. if hst>18 then hst=18
  838. if hst=10 then sendfile dpath||'hist10'
  839. if hst=11 then sendfile dpath||'hist11'
  840. if hst=12 then sendfile dpath||'hist12'
  841. if hst=13 then sendfile dpath||'hist13'
  842. if hst=14 then sendfile dpath||'hist14'
  843. if hst=15 then sendfile dpath||'hist15'
  844. if hst=16 then sendfile dpath||'hist16'
  845. if hst=17 then sendfile dpath||'hist17'
  846. if hst=18 then sendfile dpath||'hist18'
  847. signal computerdocs1
  848.  
  849. mapsd:
  850. if mental>23 then signal mapsdd
  851. transmit 'ceYou need a higher Mental rating to open this linkw2'
  852. signal computerdocs1
  853.  
  854. mapsdd:
  855. mps=VRnd(1,2)+level
  856. if mps<8 then mps=8
  857. if mps>13 then mps=13
  858. if mps=8 then sendfile mpath||'map1.anstest'
  859. if mps=9 then sendfile mpath||'map2.anstest'
  860. if mps=10 then sendfile mpath||'map3.anstest'
  861. if mps=11 then sendfile mpath||'map4.anstest'
  862. if mps=12 then sendfile mpath||'map5.anstest'
  863. if mps=13 then sendfile mpath||'map6.anstest'
  864. signal computerdocs1
  865.  
  866. weaponsd:
  867. if assault>50 then signal weaponsdd
  868. transmit 'ceYou need a degree in Assault Weapons to open this linkw2'
  869. signal computerdocs1
  870.  
  871. weaponsdd:
  872. wp=VRnd(1,17)+level
  873. if wp<2 then wp=2
  874. if wp>25 then wp=25
  875. if wp=2 then wp=sword
  876. if wp=3 then wp=cutlass
  877. if wp=4 then wp=bastard
  878. if wp=5 then wp=Vibro mace
  879. if wp=6 then wp=katana
  880. if wp=7 then wp=staff
  881. if wp=8 then wp=War Axe
  882. if wp=9 then wp=Battle Sword
  883. if wp=10 then wp=revolver
  884. if wp=11 then wp=magnum
  885. if wp=12 then wp=mark iv
  886. if wp=13 then wp=blaster
  887. if wp=14 then wp=nova axe
  888. if wp=15 then wp=nova staff
  889. if wp=16 then wp=nova sword
  890. if wp=17 then wp=phase knife
  891. if wp=18 then wp=phase staff
  892. if wp=19 then wp=phase sword
  893. if wp=20 then wp=death knife
  894. if wp=21 then wp=death mace
  895. if wp=22 then wp=death staff
  896. if wp=23 then wp=assassins rifle
  897. if wp=24 then wp=millenium rifle
  898. if wp=25 then wp=death rifle
  899. signal weaponshowit
  900.  
  901. weaponshowit:
  902. call open(1,wpath||'stats/'wp)
  903. wcost=readln(1)
  904. weapondam1=readln(1)
  905. call close(1)
  906. transmit 'f1n2cfINFORMATION ON:c9' wp
  907. transmit 'n1caDAMAGE :cb' weapondam1
  908. transmit 'caPRICE  :cb' wcost
  909. if weapondam1<31 then transmit 'n1cfA good weapon at lower levels'
  910. if weapondam1>30 & weapondam1<61 then transmit 'n1cfA great weapon at lower levels'
  911. if weapondam1>60 & weapondam1<101 then transmit 'n1cfA great weapon at medium levels'
  912. if weapondam1>100 & weapondam1<151 then transmit 'n1cfA great weapon at higher levels'
  913. if weapondam1>150 & weapondam1<199 then transmit 'n1cfA better weapon will have to be built personally'
  914. if weapondam1=200 then transmit 'g1f1s1c9You have the skills to build your own weapon...n1Just saycf MYWEAPONc9 at the weaponshop...s0'
  915. transmit 'g1'
  916. signal computerdocs1
  917.  
  918. armord:
  919. if defense>50 then signal armordd 
  920. transmit 'ceYou need a degree in Defense to open this linkw2'
  921. signal computerdocs1
  922.  
  923. armordd:
  924. ar=VRnd(1,6)+level
  925. if ar<5 then ar=5
  926. if ar>18 then ar=18
  927. if ar='5' then ar=fibre
  928. if ar='6' then ar=mesh
  929. if ar='7' then ar=fibre mesh
  930. if ar='8' then ar=fibre plate
  931. if ar='9' then ar=mesh plate
  932. if ar='10' then ar=recoil
  933. if ar='11' then ar=assault
  934. if ar='12' then ar=defense
  935. if ar='13' then ar=blast
  936. if ar='14' then ar=blast recoil
  937. if ar='15' then ar=alien plate
  938. if ar='16' then ar=camouflage
  939. if ar='17' then ar=reburst plate
  940. if ar='18' then ar=terror plate
  941. signal loadarmor1
  942.  
  943. loadarmor1:
  944. call open(1,apath||'stats/'ar)
  945. acost=readln(1)
  946. arating=readln(1)
  947. call close(1)
  948. transmit 'f1n2cfINFORMATION ON:c9 'ar
  949. transmit 'n1caPROTECTION AC:cb 'arating
  950. transmit 'caPRICE       :cb 'acost
  951. if arating<11 then transmit 'n1cfThis is low protection'
  952. if arating>10 & arating<14 then transmit 'n1cfThis is good protection'
  953. if arating>15 & arating<18 then transmit 'n1cfThis is great protection'
  954. if arating>18 then transmit 'n1cfThis is the best protectiong1f1n2You have the skills needed to build your own armor!n2Tell the ArmorShop ceHELPMEcf!'
  955. transmit 'g1'
  956. signal computerdocs1
  957.  
  958. religiond:
  959. if religion>50 then signal holdon /* religiondd */
  960. transmit 'ceYou need a degree in Religion to open this linkw2'
  961. signal computerdocs1
  962.  
  963. racestudd:
  964. if racestudy>50 then signal racestuddd
  965. transmit 'ceYou need a degree in Race Studies to open this linkw2'
  966. signal computerdocs1
  967.  
  968. racestuddd:
  969. rcd=VRnd(1,6)
  970. if rcd=1 then sendfile dpath||'race1'
  971. if rcd=2 then sendfile dpath||'race2'
  972. if rcd=3 then sendfile dpath||'race3'
  973. if rcd=4 then sendfile dpath||'race4'
  974. if rcd=5 then sendfile dpath||'race5'
  975. if rcd=6 then sendfile dpath||'race6'
  976. signal computerdocs1
  977.  
  978. gamblingd:
  979. if gambling>50 then signal gamblingdd
  980. transmit 'ceYou need a degree in Gambling to open this linkw2'
  981. signal computerdocs1
  982.  
  983. classesd:
  984. if mental>16 then signal classesdd
  985. transmit 'ceYou need to be smarter to open this linkw2'
  986. signal computerdocs1
  987.  
  988. classesdd:
  989. cla=VRnd(1,6)
  990. if cla=1 then sendfile dpath||'class1'
  991. if cla=2 then sendfile dpath||'class2'
  992. if cla=3 then sendfile dpath||'class3'
  993. if cla=4 then sendfile dpath||'class4'
  994. if cla=5 then sendfile dpath||'class5'
  995. if cla=6 then sendfile dpath||'class6'
  996. signal computerdocs1
  997.  
  998. monstersd:
  999. if mental>16 then signal monstersdd 
  1000. transmit 'ceYou need to be smarter to open this linkw2'
  1001. signal computerdocs1
  1002.  
  1003. monstersdd:
  1004. mon=VRnd(1,35)+level
  1005. if mon=2 then mon=Dungeon Miff
  1006. if mon=3 then mon=Helix Fern
  1007. if mon=4 then mon=Scamp Bloom
  1008. if mon=5 then mon=Scum Bucket
  1009. if mon=6 then mon=Office Floozie
  1010. if mon=7 then mon=City Dweller
  1011. if mon=8 then mon=Cave Newt
  1012. if mon=9 then mon=Servant Droid
  1013. if mon=10 then mon=Villuxator
  1014. if mon=11 then mon=weenie
  1015. if mon=12 then mon=wolf
  1016. if mon=13 then mon=adventure rat
  1017. if mon=14 then mon=Igon
  1018. if mon=15 then mon=Ice Blaster
  1019. if mon=16 then mon=Gatorlope
  1020. if mon=17 then mon=Office Guard
  1021. if mon=18 then mon=Backer
  1022. if mon=19 then mon=Cryoknight
  1023. if mon=20 then mon=Blackness
  1024. if mon=21 then mon=pitbull
  1025. if mon=22 then mon=poodle
  1026. if mon=23 then mon=gangbanger
  1027. if mon=24 then mon=sewer rat
  1028. if mon=25 then mon=guardian
  1029. if mon=26 then mon=snowman
  1030. if mon=27 then mon=flying beast
  1031. if mon=28 then mon=sunman
  1032. if mon=29 then mon=bandit
  1033. if mon=30 then mon=screamer
  1034. if mon=31 then mon=solar rat
  1035. if mon=32 then mon=runt
  1036. if mon=33 then mon=predator
  1037. if mon=34 then mon=tech guard
  1038. if mon=35 then mon=elite guard
  1039. if mon=36 then mon=giant
  1040. if mon=37 then mon=alien
  1041. if mon=38 then mon=gas monster
  1042. if mon=39 then mon=water fiend
  1043. if mon=40 then mon=scourge
  1044. if mon=41 then mon=udrak
  1045. if mon=42 then mon=entity
  1046. if mon=43 then mon=chrome beast
  1047. if mon=44 then mon=Attritoa
  1048. if mon=45 then mon=Caticore
  1049. if mon=46 then mon=Proalyn
  1050. if mon=47 then mon=Light Beast
  1051. if mon=48 then mon=Shreeva
  1052. if mon=49 then mon=Kryt0x
  1053. if mon=50 then mon=Mind Giant
  1054. if mon=51 then mon=Time Golem
  1055. if mon=52 then mon=Dark Beast
  1056. if mon=53 then mon=Lava Warrior
  1057. if mon=54 then mon=Strangle Lich
  1058. if mon=55 then mon=Nether Region Trooper
  1059. if mon=56 then mon=Villain Clone
  1060. if mon=57 then mon=Vault Guardian
  1061. if mon=58 then mon=Void
  1062. if mon=59 then mon=Sould Fiend
  1063. call monsterview
  1064.  
  1065. monsterview:
  1066. call open(1,epath||mon)
  1067. monhealth=readln(1)
  1068. mondam=readln(1)
  1069. monweapon=readln(1)
  1070. monvalue=readln(1)
  1071. monmoney=readln(1)
  1072. monthaco=readln(1)
  1073. monac=readln(1)
  1074. mondes=readln(1)
  1075. monagility=readln(1)
  1076. call close(1)
  1077. transmit 'f1n1cfINFORMATION ON:c9' mon
  1078. transmit 'n1caHEALTH   :cb' monhealth
  1079. transmit 'caWEAPON   :cb' monweapon
  1080. transmit 'caDAMAGE   :cb' mondam
  1081. transmit 'caXP VALUE :cb' monvalue
  1082. transmit 'caARMOR CL :cb' monac
  1083. transmit 'caAGILITY  :cb' monagility
  1084. transmit 'g1'
  1085. signal computerdocs1
  1086.  
  1087. bmarketd:
  1088. if bmarket=yes then signal bmarketdd
  1089. transmit 'ceYou need to see the clerk at the Item Shop first to open this linkw2'
  1090. signal computerdocs1
  1091.  
  1092. holdon:
  1093. transmit 'f1s1n4caThe unregistered version of c9Battle Lands ca'
  1094. transmit 'cadoes not contain the class cbTheologist caand therefore'
  1095. transmit 'cano religions were added to the game. However, since you'
  1096. transmit 'cawent to so much trouble gaining religious skill I will now'
  1097. transmit 'cagive you back 500,000 bucks and take the skill away from you!w5s0'
  1098. money=money+500000
  1099. religion=0
  1100. signal computerdocs1
  1101.  
  1102. governmenta:
  1103. if governments>50 then signal government1
  1104. transmit 'n1c5You are not intelligent enough to open this linkw2'
  1105. signal computerdocs1
  1106.  
  1107. government1:
  1108. gt=VRnd(1,15)
  1109. if gt=1 then sendfile dpath||'gov1'
  1110. if gt=2 then sendfile dpath||'gov2'
  1111. if gt=3 then sendfile dpath||'gov3'
  1112. if gt=4 then sendfile dpath||'gov4'
  1113. if gt=5 then sendfile dpath||'gov5'
  1114. if gt=6 then sendfile dpath||'gov6'
  1115. if gt=7 then sendfile dpath||'gov7'
  1116. if gt=8 then sendfile dpath||'gov8'
  1117. if gt=9 then sendfile dpath||'gov9'
  1118. if gt=10 then sendfile dpath||'gov10'
  1119. if gt=11 then sendfile dpath||'gov11'
  1120. if gt=12 then sendfile dpath||'gov12'
  1121. if gt=13 then sendfile dpath||'gov13'
  1122. if gt=14 then sendfile dpath||'gov14'
  1123. if gt=15 then sendfile dpath||'gov15'
  1124. signal computerdocs1
  1125.  
  1126. magic1:
  1127. if magic=yes then signal magic2
  1128. transmit 'n1c6You to be able to use Magic to open this linkw2'
  1129. signal computerdocs1
  1130.  
  1131. magic2:
  1132. mg=VRnd(1,15)+level
  1133. if mg>25 then mg=25
  1134. if mg<11 then mg=11
  1135. if mg=11 then sendfile dpath||'magic11'
  1136. if mg=12 then sendfile dpath||'magic12'
  1137. if mg=13 then sendfile dpath||'magic13'
  1138. if mg=14 then sendfile dpath||'magic14'
  1139. if mg=15 then sendfile dpath||'magic15'
  1140. if mg=16 then sendfile dpath||'magic16'
  1141. if mg=17 then sendfile dpath||'magic17'
  1142. if mg=18 then sendfile dpath||'magic18'
  1143. if mg=19 then sendfile dpath||'magic19'
  1144. if mg=20 then sendfile dpath||'magic20'
  1145. if mg=21 then sendfile dpath||'magic21'
  1146. if mg=22 then sendfile dpath||'magic22'
  1147. if mg=23 then sendfile dpath||'magic23'
  1148. if mg=24 then sendfile dpath||'magic24'
  1149. if mg=25 then sendfile dpath||'magic25'
  1150. signal computerdocs1
  1151.  
  1152. strength1:
  1153. if strength<=15 then strdam=0
  1154. if strength=16 then strdam=2
  1155. if strength=17 then strdam=2
  1156. if strength=18 then strdam=3
  1157. if strength=19 then strdam=3
  1158. if strength=20 then strdam=4
  1159. if strength=21 then strdam=4
  1160. if strength=22 then strdam=5
  1161. if strength=23 then strdam=5
  1162. if strength=24 then strdam=6
  1163. if strength=25 then strdam=6
  1164. if strength=26 then strdam=7
  1165. if strength=27 then strdam=7
  1166. if strength>27 then strdam=8
  1167. call donea
  1168.  
  1169. strength2:
  1170. if strength<=15 then bhit=0
  1171. if strength=16 then bhit=1
  1172. if strength=17 then bhit=1
  1173. if strength=18 then bhit=1
  1174. if strength=19 then bhit=2
  1175. if strength=20 then bhit=2
  1176. if strength=21 then bhit=2
  1177. if strength=22 then bhit=3
  1178. if strength=23 then bhit=3
  1179. if strength=24 then bhit=3
  1180. if strength=25 then bhit=4
  1181. if strength=26 then bhit=4
  1182. if strength=27 then bhit=4
  1183. if strength>27 then bhit=5
  1184. flagd=yes
  1185. call doneb
  1186.  
  1187. shop:
  1188. transmit 'f1'
  1189. sendfile mmpath||'shop.ans'
  1190. sendstring "n2cbWhich shop would you like to enter?c9 "
  1191. getchar
  1192. sh=upper(result);transmit sh
  1193. if sh=p then signal quit
  1194. if sh='W' then signal weaponshop
  1195. if sh='A' then signal armorshop
  1196. if sh='I' then signal inventoryshop
  1197. if sh='H' then signal healershop
  1198. if sh='M' then signal magicshop
  1199. if sh='Q' then signal done
  1200. signal shop
  1201.  
  1202. magicshop:
  1203. transmit 'f1'
  1204. if magic=no then signal youhavenomagic
  1205. sendfile mmpath||'spell.ans'
  1206. transmit 'n1ceYou have $cf'money 'n1'
  1207. query 'cbSelect a Spell ca#cb to purchasece>> '
  1208. mm=upper(result);transmit mm
  1209. if mm=p then signal quit
  1210. if mm='' then signal magicshop
  1211. if mm='1' then mm=elecstorma
  1212. if mm='2' then mm=mentalpuncha
  1213. if mm='3' then mm=heal1a
  1214. if mm='4' then mm=blast1a
  1215. if mm='5' then mm=shield1a
  1216. if mm='6' then mm=musclea
  1217. if mm='7' then mm=heal2a
  1218. if mm='8' then mm=blast2a
  1219. if mm='9' then mm=shield2a
  1220. if mm='10' then mm=lightninga
  1221. if mm='11' then mm=metalstorma
  1222. if mm='12' then mm=missilea
  1223. if mm='13' then mm=nukea      
  1224. if mm=gandolf then mm=devasta
  1225. if mm='Q' then signal main
  1226. if exists(tpath||mm)=1 then call magicbought1
  1227. signal magicshop
  1228.  
  1229. youhavenomagic:
  1230. transmit 'ceYou are not capable of using magic!w2'
  1231. call shop
  1232.  
  1233. magicbought1:
  1234. call open(1,tpath||mm)
  1235. mactag=readln(1)
  1236. maccost=readln(1)
  1237. malevel=readln(1)
  1238. call close(1)
  1239. if malevel>level then signal notenoughlevel
  1240. if salesman<98 then maccost=maccost/2
  1241. if salesman>99 then maccost=maccost/4
  1242. if money>maccost then signal magicbought2
  1243. transmit 'ceYou do not have the funds necessary to buycf' mactag 'ce!w2'
  1244. signal magicshop
  1245.  
  1246. notenoughlevel:
  1247. transmit 'n1c9Your level is not high enough to learncf' mactag 'c9!w2'
  1248. signal magicshop
  1249.  
  1250. magicbought2:
  1251. transmit 'cdAce 'mactag 'cdcosts $ce'maccost
  1252. sendstring 'cbDo you want it?c9 [No]ce '
  1253. getchar
  1254. an=upper(result);transmit 'cb'an
  1255. if an=p then quit
  1256. if an='Y' then signal magicbought3
  1257. transmit 'ceMake up your mind!w2'
  1258. signal magicshop
  1259.  
  1260. magicbought3:
  1261. if mm=elecstorma then signal ma1
  1262. if mm=mentalpuncha then signal ma2
  1263. if mm=heal1a then signal ma3
  1264. if mm=blast1a then signal ma4
  1265. if mm=shield1a then signal ma5
  1266. if mm=musclea then signal ma6       
  1267. if mm=heal2a then signal ma7         
  1268. if mm=blast2a then signal ma8        
  1269. if mm=shield2a then signal ma9       
  1270. if mm=lightninga then signal ma10   
  1271. if mm=metalstorma then signal ma11
  1272. if mm=missilea then signal ma12
  1273. if mm=nukea then signal ma13
  1274. if mm=devasta then signal ma14
  1275.  
  1276. ma1:
  1277. elecstorm=yes
  1278. money=money-maccost
  1279. call savestats
  1280. call magicshop
  1281.  
  1282. ma2:
  1283. mentalpunch=yes
  1284. money=money-maccost
  1285. call savestats
  1286. call magicshop
  1287.  
  1288. ma3:
  1289. heal1=yes
  1290. money=money-maccost
  1291. call savestats
  1292. call magicshop
  1293.  
  1294. ma4:
  1295. blast1=yes
  1296. money=money-maccost
  1297. call savestats
  1298. call magicshop
  1299.  
  1300. ma5:
  1301. shield1=yes
  1302. money=money-maccost
  1303. call savestats
  1304. call magicshop
  1305.  
  1306. ma6:
  1307. muscle=yes
  1308. money=money-maccost
  1309. call savestats
  1310. call magicshop
  1311.  
  1312. ma7:
  1313. heal2=yes
  1314. money=money-maccost
  1315. call savestats
  1316. call magicshop
  1317.  
  1318. ma8:
  1319. blast2=yes
  1320. money=money-maccost
  1321. call savestats
  1322. call magicshop
  1323.  
  1324. ma9:
  1325. shield2=yes
  1326. money=money-maccost
  1327. call savestats
  1328. call magicshop
  1329.  
  1330. ma10:
  1331. lightning=yes
  1332. money=money-maccost
  1333. call savestats
  1334. call magicshop
  1335.  
  1336. ma11:
  1337. metalstorm=yes
  1338. money=money-maccost
  1339. call savestats
  1340. call magicshop
  1341.  
  1342. ma12:
  1343. missile=yes
  1344. money=money-maccost
  1345. call savestats
  1346. call magicshop
  1347.  
  1348. ma13:
  1349. nuke=yes
  1350. money=money-maccost
  1351. call savestats
  1352. call magicshop
  1353.  
  1354. ma14:
  1355. devastate=yes
  1356. money=money-maccost
  1357. call savestats
  1358. call magicshop
  1359.  
  1360. uhavenomagic:
  1361. transmit 'n1c9YOUR WARRIOR IS NOT CAPABLE OF USING MAGIC!!! ENTRANCE FORBIDDEN!'
  1362. signal shop
  1363.  
  1364. inventoryshop:
  1365. transmit 'f1'
  1366. sendfile mmpath||'item.ans'
  1367. transmit 'n1ceYou have $cf'money 'n1'
  1368. query 'cbSelect an Item ca#cb to purchasece>> '
  1369. tm=upper(result);transmit tm
  1370. if tm=p then signal quit
  1371. if tm='S' then transmit 'n1c9Sorry! We onlycf SELL c9Items!w2'
  1372. if tm='' then signal inventoryshop
  1373. if tm='1' then tm=MusChipa
  1374. if tm='2' then tm=PhysChipa
  1375. if tm='3' then tm=linkchipa
  1376. if tm='4' then tm=menchipa
  1377. if tm='5' then tm=medkita
  1378. if tm='6' then tm=infogoga
  1379. if tm='7' then tm=cbootsa
  1380. if tm=ultimatechip then tm=kadchipa
  1381. if tm=soilentgreen then tm=pirchipa
  1382. if tm=isolation then signal cardshop
  1383. if tm='Q' then signal shop
  1384. if exists(wpath||'stats/'tm)=1 then call itembought1
  1385. signal inventoryshop
  1386.  
  1387. cardshop:
  1388. if money>100000 then signal cardshop1
  1389. transmit 'n1ceI''m not going to say a thing till you come back with $100,000.00w2'
  1390. signal inventoryshop
  1391.  
  1392. cardshop1:
  1393. transmit 'n1ceOkay. You look trustworthy. At the Computer Link say cbMODSQUAD!!g1'
  1394. bmarket=yes
  1395. money=money-100000
  1396. signal inventoryshop
  1397.  
  1398. itembought1:
  1399. call open(1,wpath||'stats/'tm)
  1400. ittag=readln(1)
  1401. itcost=readln(1)
  1402. itbonus=readln(1)
  1403. call close(1)
  1404. if salesman>50 & salesman<99 then itcost=itcost/2
  1405. if salesman>99 then itcost=itcost/4
  1406. if money>itcost then signal itembought2
  1407. transmit 'ceYou do not have the funds necessary to buy this!w2'
  1408. signal inventoryshop
  1409.  
  1410. itembought2:
  1411. transmit 'cdAce 'ittag 'cdcosts $ce'itcost
  1412. sendstring 'cbDo you want it?c9 [No]ce '
  1413. getchar
  1414. an=upper(result);transmit 'cb'an
  1415. if an=p then quit
  1416. if an='Y' then signal itembought3
  1417. transmit 'ceMake up your mind!w2'
  1418. signal inventoryshop
  1419.  
  1420. itembought3:
  1421. if tm=muschipa then signal muschip1
  1422. if tm=physchipa then signal physchip1
  1423. if tm=linkchipa then signal linkchip1
  1424. if tm=menchipa then signal menchip1
  1425. if tm=kadchipa then signal kadchip1
  1426. if tm=pirchipa then signal pirchip1
  1427. if tm=medkita then signal medkit1
  1428. if tm=infogoga then signal infogog1
  1429. if tm=cbootsa then signal cboots1
  1430.  
  1431. muschip1:
  1432. muschip=yes
  1433. strength=strength+3
  1434. money=money-itcost
  1435. call savestats
  1436. call inventoryshop
  1437.  
  1438. physchip1:
  1439. physchip=yes
  1440. agility=agility+3
  1441. money=money-itcost
  1442. call savestats
  1443. call inventoryshop
  1444.  
  1445. linkchip1:
  1446. linkchip=yes
  1447. computers=computers+60
  1448. money=money-itcost
  1449. call savestats
  1450. call inventoryshop
  1451.  
  1452. menchip1:
  1453. menchip=yes
  1454. mental=mental+3
  1455. money=money-itcost
  1456. call savestats
  1457. call inventoryshop
  1458.  
  1459. kadchip1:
  1460. kadchip=yes
  1461. strength=28
  1462. mental=28
  1463. agility=28
  1464. endurance=28
  1465. magic=yes
  1466. computers=computers+50
  1467. money=money-itcost
  1468. call savestats
  1469. call inventoryshop
  1470.  
  1471. pirchip1:
  1472. pirchip=yes
  1473. strength=strength+2
  1474. mental=mental+2
  1475. agility=agility+2
  1476. endurance=endurance+2
  1477. money=money-itcost
  1478. call savestats
  1479. call inventoryshop
  1480.  
  1481. medkit1:
  1482. medkit=medkit+1
  1483. meduses=3
  1484. money=money-itcost
  1485. call savestats
  1486. call inventoryshop
  1487.  
  1488. infogog1:
  1489. infogog=yes
  1490. money=money-itcost
  1491. call savestats
  1492. call inventoryshop
  1493.  
  1494. cboots1:
  1495. cboots=yes
  1496. money=money-itcost
  1497. call savestats
  1498. call inventoryshop
  1499.  
  1500. weaponshop:
  1501. transmit 'f1'
  1502. sendfile mmpath||'weapon.ans'
  1503. transmit 'n1ceYou have $cf'money 'n1'
  1504. query 'cbSelect a Weapon ca#cb to purchasece>> '
  1505. wp=upper(result)
  1506. if wp=p then signal quit
  1507. if wp='S' then transmit 'n1c9Sorry! We onlycf SELLc9 weapons!w2' 
  1508. if wp='Q' then signal shop
  1509. if wp='' then signal weaponshop
  1510. if wp='1' then wp=dagger
  1511. if wp='2' then wp=sword
  1512. if wp='3' then wp=cutlass
  1513. if wp='4' then wp=bastard
  1514. if wp='5' then wp=Vibro mace
  1515. if wp='6' then wp=katana
  1516. if wp='7' then wp=staff
  1517. if wp='8' then wp=War Axe
  1518. if wp='9' then wp=Battle Sword
  1519. if wp='10' then wp=revolver
  1520. if wp='11' then wp=magnum
  1521. if wp='12' then wp=mark iv
  1522. if wp='13' then wp=blaster
  1523. if wp='14' then wp=nova axe
  1524. if wp='15' then wp=nova staff
  1525. if wp='16' then wp=nova sword
  1526. if wp='17' then wp=phase knife
  1527. if wp='18' then wp=phase staff
  1528. if wp='19' then wp=phase sword
  1529. if wp='20' then wp=nuker staff
  1530. if wp='21' then wp=nuker axe
  1531. if wp='22' then wp=death knife
  1532. if wp='23' then wp=death mace
  1533. if wp='24' then wp=death staff
  1534. if wp='25' then wp=assassins rifle
  1535. if wp='26' then wp=millenium rifle
  1536. if wp='27' then wp=death rifle
  1537. if wp=myweapon then signal wmakeme
  1538. if exists(wpath'stats/'wp)=1 then signal weaponbought
  1539. signal weaponshop
  1540.  
  1541. wmakeme:
  1542. if assault<50 then signal getsomeass
  1543. transmit 'f1n2cfSo you wanna make a weapon, eh?'
  1544. query 'n1caWhat are we gonna call this thing? c9[RETURN=Abort]cb '
  1545. wname1=upper(result)
  1546. if wname1=p then signal quit
  1547. if wname1='' then signal weaponshop
  1548. signal wpriceme
  1549.  
  1550. wpriceme:
  1551. transmit 'n1caYou have cb$'money
  1552. query 'caHow much do you wanna spend on this venture? '
  1553. wlcost=upper(result)
  1554. if wlcost>money then signal getsomefunds
  1555. if wlcost=p then signal quit
  1556. if wlcost='' then signal wmakeme
  1557. transmit 'n1ceFiguring...w2'
  1558. wdam=wlcost/25000
  1559. signal wcompleteme
  1560.  
  1561. getsomefunds:
  1562. transmit 'c9You do not have that sort of money!w2'
  1563. signal weaponshop
  1564.  
  1565. wcompleteme:
  1566. transmit 'f1n2caYour weapon c9'wname1 'cawill doc9' wdam 'cadamage!'
  1567. sendstring 'n1caIs this okay with you??? c9[NO] '
  1568. getchar
  1569. awr=upper(result)
  1570. if awr=p then signal quit
  1571. if awr='N' then signal weaponshop
  1572. if awr='' then signal weaponshop
  1573. weapon=wname1
  1574. weapondam=wdam
  1575. damage=weapondam+strdam
  1576. money=money-wlcost
  1577. signal weaponshop
  1578.  
  1579. getsomeass:
  1580. transmit 'ceYour Assault skill is not good enough to build a weapon!w2'
  1581. signal weaponshop
  1582.  
  1583. weaponbought:
  1584. call open(1,wpath||'stats/'wp)
  1585. wcost=readln(1)
  1586. weapondam1=readln(1)
  1587. call close(1)
  1588. if salesman>50 & salesman<99 then wcost=wcost/2
  1589. if salesman>99 then wcost=wcost/4
  1590. if money>=wcost then signal weaponbought2
  1591. transmit 'ceYou do not have the funds necessary to buy this!w2'
  1592. signal weaponshop
  1593.  
  1594. weaponbought2:
  1595. transmit 'cdAce 'wp 'cdcosts $ce'wcost
  1596. sendstring 'cbDo you want it?c9 [No]ce '
  1597. getchar
  1598. an=upper(result);transmit 'cb'an
  1599. if an=p then quit
  1600. if an='Y' then signal weaponbought3
  1601. transmit 'ceMAKE UP YOUR MIND!w2'
  1602. signal weaponshop
  1603.  
  1604. weaponbought3:
  1605. weapon=wp
  1606. money=money-wcost
  1607. weapondam=weapondam1
  1608. damage=weapondam+strdam
  1609. call savestats
  1610. call shop
  1611.  
  1612. armorshop:
  1613. transmit 'f1'
  1614. sendfile mmpath||'armor.ans'
  1615. transmit 'n1ceYou have $cf'money 'n1'
  1616. query 'cbSelect an armor ca#cb to purchasece>> '
  1617. ar=upper(result)
  1618. if ar=p then signal quit
  1619. if ar='S' then transmit 'n1c9Sorry! We only cfSELL c9armor!w2'
  1620. if ar='Q' then signal shop
  1621. if ar='' then signal armorshop
  1622. if ar='1' then ar=robe
  1623. if ar='2' then ar=leather
  1624. if ar='3' then ar=studded leather
  1625. if ar='4' then ar=chain
  1626. if ar='5' then ar=fibre
  1627. if ar='6' then ar=mesh
  1628. if ar='7' then ar=fibre mesh
  1629. if ar='8' then ar=fibre plate
  1630. if ar='9' then ar=mesh plate
  1631. if ar='10' then ar=recoil
  1632. if ar='11' then ar=assault
  1633. if ar='12' then ar=defense
  1634. if ar='13' then ar=blast
  1635. if ar='14' then ar=blast recoil
  1636. if ar='15' then ar=alien plate
  1637. if ar='16' then ar=camouflage
  1638. if ar='17' then ar=reburst plate
  1639. if ar='18' then ar=terror plate
  1640. if ar=helpme then signal amakeme
  1641. if exists(apath'stats/'ar)=1 then signal armorbought
  1642. signal armorshop
  1643.  
  1644. amakeme:
  1645. if defense<50 then signal getsomeass1
  1646. transmit 'f1cfSo you wanna build some armor, eh?'
  1647. query 'n1caWhat are we gonna call this thing? c9[RETURN=Abort]cb '
  1648. aname1=upper(result)
  1649. if aname1=p then signal quit
  1650. if aname1='' then signal armorshop
  1651. signal apriceme
  1652.  
  1653. apriceme:
  1654. transmit 'n1caYou have cb$'money
  1655. query 'caHow much do you wanna spend on this venture? '
  1656. alcost=upper(result)
  1657. if alcost>money then signal getsomefunds1
  1658. if alcost=p then signal quit
  1659. if alcost='' then signal amakeme
  1660. transmit 'n1ceFiguring...w2'
  1661. naac=alcost/300000
  1662. signal acompleteme
  1663.  
  1664. getsomefunds1:
  1665. transmit 'c9You do not have that sort of money!w2'
  1666. signal armorshop
  1667.  
  1668. acompleteme:
  1669. transmit 'f1n2caYour armor c9'aname1 'cawill havec9' naac 'caAC!'
  1670. sendstring 'n1caIs this okay with you??? c9[NO] '
  1671. getchar
  1672. arw=upper(result)
  1673. if arw=p then signal quit
  1674. if arw='N' then signal armorshop
  1675. armor=aname1
  1676. ac=naac
  1677. money=money-alcost
  1678. signal armorshop
  1679.  
  1680. getsomeass1:
  1681. transmit 'ceYour Defense skill is not good enough to build armor!w2'
  1682. signal armorshop
  1683.  
  1684. armorbought:
  1685. call open(1,apath||'stats/'ar)
  1686. acost=readln(1)
  1687. arating=readln(1)
  1688. call close(1)
  1689. if salesman>50 & salesman<99 then acost=acost/2
  1690. if salesman>99 then acost=acost/4
  1691. if money>=acost then signal armorbought2
  1692. transmit 'ceYou do not have the funds necessary to buy this!w2'
  1693. signal armorshop
  1694.  
  1695. armorbought2:
  1696. transmit 'cdAce 'ar 'cdcosts $ce'acost
  1697. sendstring 'cbDo you want it?c9 [No]ce '
  1698. getchar
  1699. an=upper(result);transmit 'cb'an
  1700. if an=p then quit
  1701. if an='Y' then signal armorbought3
  1702. transmit 'ceMake up your mind!w2'
  1703. signal armorshop
  1704.  
  1705. armorbought3:
  1706. armor=ar
  1707. money=money-acost
  1708. bag=agility-20
  1709. if bag>5 then bag=5
  1710. if bag<-2 then bag=-2
  1711. ac=bag+arating
  1712. call savestats
  1713. call shop
  1714.  
  1715. loadsaved:
  1716. transmit 'ccLoading your stats...'
  1717. call loadstats
  1718. transmit 'n2ceDONE!w1'
  1719. signal main
  1720.  
  1721. loadstats:
  1722. call open(1,upath||'stats/'name)
  1723. money=readln(1)
  1724. health=readln(1)
  1725. maxhealth=readln(1)
  1726. strength=readln(1)
  1727. agility=readln(1)
  1728. endurance=readln(1)
  1729. mental=readln(1)
  1730. experience=readln(1)
  1731. level=readln(1)
  1732. class=readln(1)
  1733. race=readln(1)
  1734. weapon=readln(1)
  1735. armor=readln(1)
  1736. mrating=readln(1)
  1737. maxmrating=readln(1)
  1738. elecstorm=readln(1)
  1739. mentalpunch=readln(1)
  1740. heal1=readln(1)
  1741. blast1=readln(1)
  1742. shield1=readln(1)
  1743. muscle=readln(1)
  1744. heal2=readln(1)
  1745. blast2=readln(1)
  1746. shield2=readln(1)
  1747. metalstorm=readln(1)
  1748. lightning=readln(1)
  1749. missile=readln(1)
  1750. nuke=readln(1)
  1751. nuke2=readln(1)
  1752. devastate=readln(1)
  1753. heal3=readln(1)
  1754. summons=readln(1)
  1755. rage=readln(1)
  1756. becomesteel=readln(1)
  1757. muschip=readln(1)
  1758. physchip=readln(1)
  1759. linkchip=readln(1)
  1760. menchip=readln(1)
  1761. kadchip=readln(1)
  1762. pirchip=readln(1)
  1763. medkit=readln(1)
  1764. meduses=readln(1)
  1765. infogog=readln(1)
  1766. cboots=readln(1)
  1767. ac=readln(1)
  1768. thaco=readln(1)
  1769. assault=readln(1)
  1770. mountaineer=readln(1)
  1771. computers=readln(1)
  1772. historian=readln(1)
  1773. salesman=readln(1)
  1774. governments=readln(1)
  1775. medical=readln(1)
  1776. religion=readln(1)
  1777. racestudy=readln(1)
  1778. defense=readln(1)
  1779. disguise=readln(1)
  1780. gambling=readln(1)
  1781. damage=readln(1)
  1782. complete=readln(1)
  1783. weapondam=readln(1)
  1784. strdam=readln(1)
  1785. next=readln(1)
  1786. pfight=readln(1)
  1787. maxpfight=readln(1)
  1788. turn=readln(1)
  1789. maxturn=readln(1)
  1790. map=readln(1)
  1791. x=readln(1)
  1792. y=readln(1)
  1793. magic=readln(1)
  1794. account=readln(1)
  1795. key1=readln(1)
  1796. key2=readln(1)
  1797. key3=readln(1)
  1798. key4=readln(1)
  1799. key5=readln(1)
  1800. pointsup=readln(1)
  1801. tpass=readln(1)
  1802. flight=readln(1)
  1803. uvir=readln(1)
  1804. radit=readln(1)
  1805. fvk=readln(1)
  1806. fshield=readln(1)
  1807. flaga=readln(1)
  1808. flagb=readln(1)
  1809. flagc=readln(1)
  1810. flagd=readln(1)
  1811. flage=readln(1)
  1812. maggy=readln(1)
  1813. bmarket=readln(1)
  1814. incity#=readln(1)
  1815. city1=readln(1)
  1816. city2=readln(1)
  1817. city3=readln(1)
  1818. city4=readln(1)
  1819. city5=readln(1)
  1820. magnagren=readln(1)
  1821. novagren=readln(1)
  1822. visits=readln(1)
  1823. call close(1)
  1824. if complete=yes then signal secondround
  1825. if health<1 then call reroll
  1826. if turn>maxturn then signal toomanyturns
  1827. turn=turn+1
  1828. if map>0 then signal mapcall
  1829. return
  1830.  
  1831. toomanyturns:
  1832. transmit 'cef1n2You have had too many turns today!! Sorry!w2'
  1833. signal quit
  1834.  
  1835. viewchar:
  1836. transmit 'f1cdStatistics for 'name'n1'
  1837. transmit 'ceMoney          $cf'money
  1838. transmit 'ceHealth         :cf'health' ceout of: c9'maxhealth
  1839. transmit 'ceStrength       :cf'strength
  1840. transmit 'ceAgility        :cf'agility
  1841. transmit 'ceEndurance      :cf'endurance
  1842. transmit 'ceMental         :cf'mental
  1843. transmit 'ceExperience     :cf'experience '  ceNext Level:cf'next
  1844. transmit 'ceLevel          :cf'level
  1845. transmit 'ceClass          :cf'class
  1846. transmit 'ceRace           :cf'race
  1847. transmit 'ceWeapon         :cf'weapon' ceDamage:cf'damage
  1848. transmit 'ceMental Rating  :cf'mrating' ceout of: c9'maxmrating
  1849. transmit 'ceArmor Class    :cf'ac
  1850. transmit 'cePlayer Fights  :cf'pfight
  1851. transmit 'ceTo Hit AC 0    :cf'thaco
  1852. transmit 'n1caHit a key to show inventory...g1'
  1853. signal showinv
  1854.  
  1855. showinv:
  1856. transmit 'n1f1cdInventory of the Battler c9'name
  1857. transmit 'ceMuscle Chip   :cf' left(muschip' ',3) 'cePhysical Chip :cf' left(physchip' ',3) 'ceLink Chip     :cf' left(linkchip' ',3)
  1858. transmit 'ceMental Chip   :cf' left(menchip' ',3) 'ce20kad Chip    :cf' left(kadchip' ',3) 'cePirate Chip   :cf' pirchip
  1859. transmit 'ceMedical Kits  :cf' left(medkit' ',3) 'ceInfo Goggles  :cf' left(infogog' ',3) 'ceClimbing Boots:cf' cboots
  1860. transmit 'ceMagna Grenades:cf' left(magnagren' ',3) 'ceInfoHelm      :cf' left(uvir' ',3) 'ceNova Grenades :cf' novagren   
  1861. transmit 'n1cdMagic of the Battler c9'name
  1862. transmit 'ceElectric Storm :cf' left(elecstorm' ',3) 'ceMental Punch   :cf' left(mentalpunch' ',3) 'ceLow Healing    :cf' heal1
  1863. transmit 'ceLow Blast      :cf' left(blast1' ',3) 'ceLow Shield     :cf' left(shield1' ',3) 'ceMuscle Gain    :cf' muscle
  1864. transmit 'ceHigh Healing   :cf' left(heal2' ',3) 'ceHigh Blast     :cf' left(blast2' ',3) 'ceHigh Shield    :cf' shield2
  1865. transmit 'ceMetal Storm    :cf' left(metalstorm' ',3) 'ceLightning Bolt :cf' left(lightning' ',3) 'ceMissile        :cf' missile
  1866. transmit 'ceNuke           :cf' left(nuke' ',3) 'ceHigh Nuke      :cf' left(nuke2' ',3) 'ceHeal All       :cf' heal3
  1867. transmit 'ceDevastate      :cf' left(Devastate' ',3) 'ceBecome Steel   :cf' left(becomesteel' ',3) 'ceRage           :cf' rage
  1868. transmit 'n1cdSkill levels of the Battler c9'name
  1869. transmit 'ceAssault     :cf' left(assault' ',3)'cb%'   'ceMountaineer :cf' left(mountaineer' ',3)'cb%'   'ceComputers   :cf' computers'cb%'
  1870. transmit 'ceHistory     :cf' left(historian' ',3)'cb%'   'ceSalesman    :cf' left(salesman' ',3)'cb%'   'ceGovernment  :cf' governments'cb%'
  1871. transmit 'ceMedical     :cf' left(medical' ',3)'cb%'   'ceReligion    :cf' left(religion' ',3)'cb%'   'ceRace Studies:cf' racestudy'cb%'
  1872. transmit 'ceDefense     :cf' left(defense' ',3)'cb%'   'ceDisguise    :cf' left(disguise' ',3)'cb%'   'ceGambling    :cf' gambling'cb%'
  1873. transmit 'n1cbHit any key to continue...g1f1'
  1874. if map>0 then signal mapcall
  1875. signal main
  1876.  
  1877. fightplayer:
  1878. sendstring 'n1c9Are you sure you wish to attack another warrior? cb[No]c9 '
  1879. getchar
  1880. at=upper(result)
  1881. if at=p then signal quit
  1882. if at=' ' then signal main
  1883. if at='Y' then signal war
  1884. signal main
  1885.  
  1886. war:
  1887. if health<1 then signal nowar
  1888. if pfight>maxpfight then signal toomany
  1889. transmit 'f1n2s1ceEntering the Battle Lands arena...s0w2'
  1890. transmit 'n1cfEnter the name of your opponent or type c9Mcf for random monster.'
  1891. query 'n2cbWho do you wish to call out? c9[Quit]ce >> '
  1892. pl=upper(result)
  1893. if pl='' then signal main
  1894. if pl=p then signal quit
  1895. if pl='Q' then signal main
  1896. if pl='M' then signal montack
  1897. if pl='L' then signal battlers2
  1898. if upper(pl)=upper(name) then signal dumb
  1899. if exists(upath'stats/'pl)=1 then signal war1
  1900. transmit 'n1c9There is no such warrior in the Landsw2'
  1901. signal war
  1902.  
  1903. toomany:
  1904. transmit 'n1c9s1You have fought too many warriors today! Try back tomorrow!s0w2'
  1905. signal main
  1906.  
  1907. nowar:
  1908. transmit 'n1ceYou are in no condition to be fighting try the healerw2'
  1909. signal main
  1910.  
  1911. dumb:
  1912. transmit 'c9The council has found it unwise to battle yourselfw2'
  1913. signal war
  1914.  
  1915. war1:
  1916. call loadopponent1
  1917. mylevel=level-2
  1918. if mylevel>oplevel then signal wimp
  1919. if opmap>0 then signal conquering
  1920. if ophealth<1 then signal nofight
  1921. if opincity#=incity# then signal war2
  1922. transmit 'ce'pl 'seems to be in a different city! Sorry!w2'
  1923. signal war
  1924.  
  1925. conquering:
  1926. transmit 'ces1'pl 'is out conquering lands and unable to fights0w2'
  1927. signal war
  1928.  
  1929. nofight:
  1930. transmit 'ce'pl 'is dead and is unable to attend the fightw2'
  1931. signal war
  1932.  
  1933. war2:
  1934. transmit 'f1n1cdHere are the warriors:'
  1935. transmit 'c9'name'      cbvs.c9      'pl
  1936. transmit 'ca'name
  1937. transmit 'ceRace  :cf'race   
  1938. transmit 'ceClass :cf'class 
  1939. transmit 'ceLevel :cf'level 
  1940. transmit 'ceWeapon:cf'weapon 
  1941. transmit 'ceHealth:cf'health
  1942. transmit 'ceA.C.  :cf'ac    
  1943. transmit 'n1ca'pl
  1944. transmit 'ceRace  :cf'oprace   
  1945. transmit 'ceClass :cf'opclass 
  1946. transmit 'ceLevel :cf'oplevel 
  1947. transmit 'ceWeapon:cf'opweapon 
  1948. transmit 'ceHealth:cf'ophealth
  1949. transmit 'ceA.C.  :cf'opac    
  1950. transmit 'n1c9HIT A KEY WHEN YOU ARE READY!!g1'
  1951. signal war3
  1952.  
  1953. war3:
  1954. transmit 'f1n2cfYou are the challenger and must go first!'
  1955. transmit 'n1c9Acettack  c9Mceagic  c9Icetem  c9Rceun!'
  1956. sendstring 'n2caWhat will it be? '
  1957. getchar
  1958. sa=upper(result)
  1959. if sa='A' then signal war4
  1960. if sa='M' then signal mattack
  1961. if sa='I' then signal ittack
  1962. if sa='R' then signal run1
  1963. if sa=p then signal quit
  1964. if sa='' then signal war3
  1965. signal war3
  1966.  
  1967. ittack:
  1968. transmit 'f1n1ceCombat Items:'
  1969. transmit 'cb1 cfMedical Kit   ceAVAILABLE:c9' medkit
  1970. transmit 'cb2 cfInfo Goggles  ceAVAILABLE:c9' infogog
  1971. transmit 'cb3 cfMagna Grenade ceAVAILABLE:c9' magnagren
  1972. transmit 'cb4 cfInfo Helm     ceAVAILABLE:c9' uvir
  1973. transmit 'cb5 cfNova Grenade  ceAVAILABLE:c9' novagren
  1974. sendstring 'n1ccPlease select an Item c9# ccto usece>>> '
  1975. getchar
  1976. itu=upper(result)
  1977. if itu=p then signal quit
  1978. if itu='Q' then signal war3
  1979. if itu='' then signal ittack
  1980. if itu='1' then signal medkit51
  1981. if itu='2' then signal infogog51
  1982. if itu='3' then signal magnagren51
  1983. if itu='4' then signal uvir51
  1984. if itu='5' then signal novagren51
  1985. signal ittack
  1986.  
  1987. uvir51:
  1988. if uvir=no then signal noitem1
  1989. transmit 'f1n1ce'pl 'info!'
  1990. transmit 'n1caHealth  :cf' ophealth
  1991. transmit 'caDamage  :cf' opdam
  1992. transmit 'caWeapon  :cf' opweapon
  1993. transmit 'caMoney   :cf' opmoney
  1994. transmit 'caThaco   :cf' opthaco
  1995. transmit 'caAC      :cf' opac
  1996. gfc=opthaco+ac
  1997. gfx=thaco+opac
  1998. transmit 'n1s1cbOn a roll of 1-20' pl 'will need ac9' gfc 'c9or better to hit you!!!s0'
  1999. transmit 'n1s1caIn order for you to hit them you will need ac9' gfx 'caor betters0'
  2000. if gfx>17 then transmit 'n1s1cfI suggest you either c9Runcf,c9 Use Magiccf orc9 Lob a Grenadecf!!s0'
  2001. transmit 'n1c9Hit any key when finished...g1'
  2002. signal ittack
  2003.  
  2004. novagren51:
  2005. if novagren=0 then signal noitem2
  2006. transmit 'n1cfYou lob a Nova Grenade at your enemy!w2'
  2007. gdam=VRnd(200,500)*2
  2008. transmit 'cfYou didc9' gdam 'cfpoints of damage!w2'
  2009. ophealth=ophealth-gdam
  2010. novagren=novagren-1
  2011. signal opdeath
  2012.  
  2013. magnagren51:
  2014. if magnagren=0 then signal noitem2
  2015. transmit 'n1cfYou lob a Magna Grenade at your enemy!w2'
  2016. gdam=VRnd(100,300)*2
  2017. transmit 'cfYou didc9' gdam 'cfpoints of damage!w2'
  2018. ophealth=ophealth-gdam
  2019. magnagren=magnagren-1
  2020. signal opdeath
  2021.  
  2022. medkit51:
  2023. if medkit=0 then signal noitem2
  2024. health=maxhealth
  2025. meduses=meduses-1
  2026. if meduses=0 then signal medkit52
  2027. transmit 'ceYou are healed!w2'
  2028. signal opponenturn
  2029.  
  2030. medkit52:
  2031. medkit=medkit-1
  2032. if medkit>0 then meduses=3
  2033. signal opponenturn
  2034.  
  2035. infogog51:
  2036. if infogog=no then signal noitem2
  2037. transmit 'f1n1ce'pl 'info!'
  2038. transmit 'n1caHealth  :cf' ophealth
  2039. transmit 'caDamage  :cf' opdam
  2040. transmit 'caWeapon  :cf' opweapon
  2041. transmit 'caMoney   :cf' opmoney
  2042. transmit 'caThaco   :cf' opthaco
  2043. transmit 'caAC      :cf' opac
  2044. transmit 'n1c9Hit any key when finished...g1'
  2045. signal opponenturn
  2046.  
  2047. noitem2:
  2048. transmit 'n1c9You do not have that item!w2'
  2049. signal ittack
  2050.  
  2051. mattack:
  2052. if magic=no then signal nomagic
  2053. transmit 'f1n1cePossible combat spells:'
  2054. transmit 'cb1  cfElectro Storm ceAVAILABLE:c9' elecstorm
  2055. transmit 'cb2  cfMental Punch  ceAVAILABLE:c9' mentalpunch
  2056. transmit 'cb3  cfLow Heal      ceAVAILABLE:c9' heal1
  2057. transmit 'cb4  cfLow Blast     ceAVAILABLE:c9' blast1
  2058. transmit 'cb5  cfLow Shield    ceAVAILABLE:c9' shield1
  2059. transmit 'cb6  cfMuscle        ceAVAILABLE:c9' muscle
  2060. transmit 'cb7  cfHigh Heal     ceAVAILABLE:c9' heal2
  2061. transmit 'cb8  cfHigh Blast    ceAVAILABLE:c9' blast2
  2062. transmit 'cb9  cfHigh Shield   ceAVAILABLE:c9' shield2
  2063. transmit 'cb10 cfMetal Storm   ceAVAILABLE:c9' metalstorm
  2064. transmit 'cb11 cfLightning     ceAVAILABLE:c9' lightning
  2065. transmit 'cb12 cfMissile       ceAVAILABLE:c9' missile
  2066. transmit 'cb13 cfNuke          ceAVAILABLE:c9' nuke
  2067. transmit 'cb14 cfDevastate     ceAVAILABLE:c9' devastate
  2068. transmit 'cb15 cfHigh Nuke     ceAVAILABLE:c9' nuke2
  2069. transmit 'cb16 cfHeal All      ceAVAILABLE:c9' heal3
  2070. transmit 'cb17 cfRage          ceAVAILABLE:c9' rage
  2071. transmit 'cb18 cfBecome Steel  ceAVAILABLE:c9' becomesteel      
  2072. query 'n1caPlease choose an available number for castingce>>c9 '
  2073. spl=upper(result);transmit spl
  2074. if spl=p then signal quit
  2075. if spl='' then signal mattack
  2076. if spl='Q' then signal war3
  2077. if spl=1 then signal estorm
  2078. if spl=2 then signal mpunch
  2079. if spl=3 then signal lheal
  2080. if spl=4 then signal mblast1
  2081. if spl=5 then signal mshield1
  2082. if spl=6 then signal mmuscle
  2083. if spl=7 then signal mheal2
  2084. if spl=8 then signal mblast2
  2085. if spl=9 then signal mshield2
  2086. if spl=10 then signal mmetalstorm
  2087. if spl=11 then signal mlightning
  2088. if spl=12 then signal mmissile
  2089. if spl=13 then signal mnuke
  2090. if spl=14 then signal mdevastate      
  2091. if spl=15 then signal mnuke2a 
  2092. if spl=16 then signal mheal3
  2093. if spl=17 then signal mrage
  2094. if spl=18 then signal mbesteel
  2095. signal mattack
  2096.  
  2097. mbesteel:
  2098. if becomesteel=no then signal donthaveit
  2099. scost=100
  2100. if scost>mrating then signal nomrating
  2101. transmit 'ceYou cast acf Become Steel cespell on yourself!w2'
  2102. mrating=mrating-scost
  2103. monthaco=monthaco+35
  2104. signal opdeath
  2105.  
  2106. mrage:
  2107. if rage=no then signal donthaveit
  2108. scost=400
  2109. if scost>mrating then signal nomrating
  2110. transmit 'ceYou cast acf Rage cespell on yourself!w2'
  2111. monthaco=monthaco+20
  2112. weapondam=weapondam+30
  2113. health=maxhealth
  2114. mrating=mrating-scost
  2115. signal opdeath
  2116.  
  2117. mheal3:
  2118. if heal3=no then signal donthaveit
  2119. scost=200
  2120. if scost>mrating then signal nomrating
  2121. transmit 'ceYou cast acf Heal cespell on yourself!w2'
  2122. health=maxhealth
  2123. mrating=mrating-scost
  2124. signal opdeath
  2125.  
  2126. mnuke2a:
  2127. if nuke2=no then signal donthaveit
  2128. scost=900
  2129. if scost>mrating then signal nomrating
  2130. transmit 'c9You have cast a cfHIGH NUKE c9at the' mon'w2'
  2131. dam=120*level
  2132. transmit 'n1c9You didcf' dam 'c9points of damage!w2'
  2133. monhealth=monhealth-dam
  2134. mrating=mrating-scost
  2135. signal opdeath
  2136.  
  2137. estorm:
  2138. if elecstorm=no then signal donthaveit
  2139. scost=5*level
  2140. if scost>mrating then signal nomrating
  2141. transmit 'c9You have cast a wild cfElectric Storm c9at' pl'w2'
  2142. dam=Vrnd(8,12)*level
  2143. transmit 'n1c9You didcf' dam 'c9points of damage!w2'
  2144. ophealth=ophealth-dam
  2145. mrating=mrating-scost
  2146. signal opdeath
  2147.  
  2148. mpunch:
  2149. if mentalpunch=no then signal donthaveit
  2150. scost=10*level
  2151. if scost>mrating then signal nomrating
  2152. transmit 'c9You have cast a powerful cfMental Punch c9at' pl'w2'
  2153. dam=(10,15)*level
  2154. transmit 'n1c9You didcf' dam 'c9points of damage!w2'
  2155. ophealth=ophealth-dam
  2156. mrating=mrating-scost
  2157. signal opdeath
  2158.  
  2159. lheal:
  2160. if heal1=no then signal donthaveit1
  2161. scost=5*level
  2162. if scost>mrating then signal nomrating1
  2163. transmit 'ceYou cast acf Heal cespell on yourself!w2'
  2164. hlt=VRnd(10,16)*level
  2165. hls=hlt+health
  2166. health=health+hlt
  2167. if hls>maxhealth then health=maxhealth
  2168. signal opdeath
  2169.  
  2170. mblast1:
  2171. if blast1=no then signal donthaveit
  2172. scost=10*level
  2173. if scost>mrating then signal nomrating
  2174. transmit 'c9You have cast a powerful cfLow Blast c9at' pl'w2'
  2175. dam=VRnd(15,25)*level
  2176. transmit 'n1c9You didcf' dam 'c9points of damage!w2'
  2177. ophealth=ophealth-dam
  2178. mrating=mrating-scost
  2179. signal opdeath
  2180.  
  2181. mshield1:
  2182. if shield1=no then signal donthaveit
  2183. scost=25
  2184. if scost>mrating then signal nomrating
  2185. transmit 'c9You have cast a powerful cfLow Shield c9on yourself!w2'
  2186. opthaco=opthaco+7
  2187. mrating=mrating-scost
  2188. signal opdeath
  2189.  
  2190. mmuscle:
  2191. if muscle=no then signal donthaveit
  2192. scost=30
  2193. if scost>mrating then signal nomrating
  2194. transmit 'c9You have become very strong!w2'
  2195. weapondam=weapondam+10
  2196. mrating=mrating-scost
  2197. signal opdeath
  2198.  
  2199. mheal2:
  2200. if heal2=no then signal donthaveit1
  2201. scost=10*level
  2202. if scost>mrating then signal nomrating1
  2203. transmit 'ceYou cast acf Heal cespell on yourself!w2'
  2204. hlt=VRnd(17,25)*level
  2205. hls=hlt+health
  2206. health=health+hlt
  2207. if hls>maxhealth then health=maxhealth
  2208. signal opdeath
  2209.  
  2210. mblast2:
  2211. if blast2=no then signal donthaveit
  2212. scost=100
  2213. if scost>mrating then signal nomrating
  2214. transmit 'c9You have cast a powerful cfBlast c9at' pl'w2'
  2215. dam=VRnd(25,35*level)
  2216. transmit 'n1c9You didcf' dam 'c9points of damage!w2'
  2217. ophealth=ophealth-dam
  2218. mrating=mrating-scost
  2219. signal opdeath
  2220.  
  2221. mshield2:
  2222. if shield2=no then signal donthaveit
  2223. scost=50
  2224. if scost>mrating then signal nomrating
  2225. transmit 'c9You have cast a powerful cfShield c9on yourself!w2'
  2226. opthaco=opthaco+11
  2227. mrating=mrating-scost
  2228. signal opdeath
  2229.  
  2230. mmetalstorm:
  2231. if metalstorm=no then signal donthaveit
  2232. scost=200
  2233. if scost>mrating then signal nomrating
  2234. transmit 'c9You have cast a powerful cfMetal Storm c9at' pl'w2'
  2235. dam=VRnd(35,45*level)
  2236. transmit 'n1c9You didcf' dam 'c9points of damage!w2'
  2237. ophealth=ophealth-dam
  2238. mrating=mrating-scost
  2239. signal opdeath
  2240.  
  2241. mlightning:
  2242. if lightning=no then signal donthaveit
  2243. scost=200
  2244. if scost>mrating then signal nomrating
  2245. transmit 'c9You have cast a powerful cfLightning Bolt c9at' pl'w2'
  2246. dam=40*level
  2247. transmit 'n1c9You didcf' dam 'c9points of damage!w2'
  2248. ophealth=ophealth-dam
  2249. mrating=mrating-scost
  2250. signal opdeath
  2251.  
  2252. mmissile:
  2253. if missile=no then signal donthaveit
  2254. scost=300
  2255. if scost>mrating then signal nomrating
  2256. transmit 'c9You have cast a powerful cfMissile c9at' pl'w2'
  2257. dam=VRnd(50,60)*level
  2258. transmit 'n1c9You didcf' dam 'c9points of damage!w2'
  2259. ophealth=ophealth-dam
  2260. mrating=mrating-scost
  2261. signal opdeath
  2262.  
  2263. mnuke:
  2264. if nuke=no then signal donthaveit
  2265. scost=700
  2266. if scost>mrating then signal nomrating
  2267. transmit 'c9You have cast a cfNUKE c9at' pl'w2'
  2268. dam=VRnd(90,110)*level
  2269. transmit 'n1c9You didcf' dam 'c9points of damage!w2'
  2270. ophealth=ophealth-dam
  2271. mrating=mrating-scost
  2272. signal opdeath
  2273.  
  2274. mdevastate:
  2275. devastate=no then signal donthaveit
  2276. scost=1000
  2277. if cost>mrating then signal nomrating
  2278. transmit 'c9You have devastated your enemy!w2'
  2279. ophealth=0
  2280. mrating=mrating-scost
  2281. signal opdeath
  2282.  
  2283. nomrating:
  2284. transmit 'n1c9You do not have enough MAGIC RATING to cast this spellw2'
  2285. signal mattack
  2286.  
  2287. donthaveit:
  2288. transmit 'n1ceYou do not have this spell in your arsenol!!!w2'
  2289. signal mattack
  2290.  
  2291. nomagic:
  2292. transmit 'n1cfYou do not possess the ability to use magic!!!w2'
  2293. signal war3
  2294.  
  2295. war4:
  2296. hit=thaco+opac
  2297. roll=VRnd(1,20)+1
  2298. if roll>hit then signal connect
  2299. transmit 'cfn1Your attack missed' pl'w2'
  2300. signal opponenturn
  2301.  
  2302. connect:
  2303. rd=VRnd(1,8)
  2304. if rd=1 then transmit 'n1c9You hit poor' pl'w2'
  2305. if rd=2 then transmit 'n1c9Your' weapon 'connected with' pl'w2'
  2306. if rd=3 then transmit 'n1c9You have hit' pl 'with your dreaded' weapon'w2'
  2307. if rd=4 then transmit 'n1c9Your' weapon 'slices through' pl 'with precisionw2'
  2308. if rd=5 then transmit 'n1c9You have damaged' pl 'with your assaultw2'
  2309. if rd=6 then transmit 'n1c9Your attack nailed' pl'w2'
  2310. if rd=7 then transmit 'n1c9You sure are good with a' weapon'. You hit' pl'!w2'
  2311. if rd=8 then transmit 'n1c9Blood flies everywhere from your assault!'
  2312. monhealth=monhealth-damage
  2313. transmit 'cfYou didc9' damage 'cfpoints of damage toc9' pl
  2314. signal opdeath
  2315.  
  2316. opponenturn:
  2317. transmit 'n1ce'pl 'is now returning the favorw2'
  2318. ophit=ac+opthaco
  2319. roll=VRnd(1,20)+1
  2320. if roll>ophit then signal connect1
  2321. transmit 'n1cfThey missed, howeverw2'
  2322. signal war3
  2323.  
  2324. connect1:
  2325. rds=VRnd(1,4)
  2326. if rds=1 then transmit 'n1c9'pl 'has hit you with their' opweapon'w2'
  2327. if rds=2 then transmit 'n1c9You are hit!w2'
  2328. if rds=3 then transmit 'n1c9WOW! You were really sliced!w2'
  2329. if rds=4 then transmit 'n1c9OUCH!' pl' is really laying into you!w2'
  2330. health=health-opdamage
  2331. signal death
  2332.  
  2333. death:
  2334. if health>1 then signal war3
  2335. transmit 'c9YIKES!!! That last attack killed you!!w2'
  2336. opmoney=opmoney+VRnd(200,600)*level+money
  2337. money=0
  2338. health=0
  2339. transmit 'cfThe cheat took your life and your money...w2'
  2340. opexperience=opexperience+VRnd(300,500)*level
  2341. transmit 'f1'
  2342. sendfile spath||'dead.ans'
  2343. transmit 'w1f1'
  2344. map=0
  2345. incity#=1
  2346. x=0
  2347. y=1
  2348. call savestats
  2349. call saveopponent
  2350. call quit
  2351.  
  2352. opdeath:
  2353. if ophealth>1 then signal opponenturn
  2354. transmit 'c9Your assault has killed' pl'w2'
  2355. experience=experience+VRnd(300,500)*oplevel
  2356. money=money+VRnd(200,600)*oplevel+opmoney
  2357. opmoney=0
  2358. ophealth=0
  2359. pfight=pfight+1
  2360. transmit 'f1'
  2361. sendfile spath||'win.ans'
  2362. transmit 'w1f1'
  2363. call saveopponent
  2364. call savestats
  2365. call levelup
  2366.  
  2367. levelup:
  2368. if experience>next then signal levelgain
  2369. signal done2
  2370.  
  2371. done2:
  2372. if pfight>maxpfight then signal out
  2373. if map>0 then signal mapcall
  2374. if location=bmarket then signal bmarketddd
  2375. signal war
  2376.  
  2377. complete1:
  2378. if map>0 then signal mapcall
  2379. signal war
  2380.  
  2381. out:
  2382. if map>0 then signal mapcall
  2383. transmit 's1cfYou have fought as many fights as you can today...w2s0'
  2384. signal main
  2385.  
  2386. level2:
  2387. if level=2 then signal done2
  2388. level=2
  2389. next=5000
  2390. thaco=thaco-2
  2391. mig=mental+maggy
  2392. mrating=mrating+mig
  2393. maxmrating=maxmrating+mig 
  2394. lex=pointsup+endurance
  2395. health=health+lex 
  2396. maxhealth=maxhealth+lex
  2397. sendfile dpath||'hints'
  2398. transmit 'f1'
  2399. signal done2
  2400.  
  2401. level3:
  2402. if level=3 then signal done2
  2403. level=3
  2404. next=10000
  2405. thaco=thaco-1
  2406. mig=mental+maggy
  2407. mrating=mrating+mig
  2408. maxmrating=maxmrating+mig 
  2409. lex=pointsup+endurance
  2410. health=health+lex 
  2411. maxhealth=maxhealth+lex
  2412. signal done1
  2413.  
  2414. level4:
  2415. if level=4 then signal done2
  2416. level=4
  2417. if magic=yes then mentalpunch=yes
  2418. next=25000
  2419. thaco=thaco-2
  2420. mig=mental+maggy
  2421. mrating=mrating+mig
  2422. maxmrating=maxmrating+mig 
  2423. lex=pointsup+endurance
  2424. health=health+lex 
  2425. maxhealth=maxhealth+lex
  2426. sendfile dpath||'hints2'
  2427. transmit 'f1'
  2428. signal done2
  2429.  
  2430. level5:
  2431. if level=5 then signal done2
  2432. level=5
  2433. next=50000
  2434. thaco=thaco-1
  2435. mig=mental+maggy
  2436. mrating=mrating+mig
  2437. maxmrating=maxmrating+mig 
  2438. lex=pointsup+endurance
  2439. health=health+lex 
  2440. maxhealth=maxhealth+lex
  2441. signal done1
  2442.  
  2443. level6:
  2444. if level=6 then signal done2
  2445. level=6
  2446. next=100000
  2447. if magic=yes then blast1=yes
  2448. mig=mental+maggy
  2449. mrating=mrating+mig
  2450. maxmrating=maxmrating+mig 
  2451. thaco=thaco-2
  2452. lex=pointsup+endurance
  2453. health=health+lex 
  2454. maxhealth=maxhealth+lex
  2455. sendfile dpath||'hints3'
  2456. transmit 'f1'
  2457. signal done2
  2458.  
  2459. level7:
  2460. if level=7 then signal done2
  2461. level=7
  2462. next=160000
  2463. thaco=thaco-1
  2464. mig=mental+maggy
  2465. mrating=mrating+mig
  2466. maxmrating=maxmrating+mig 
  2467. lex=pointsup+endurance
  2468. health=health+lex 
  2469. maxhealth=maxhealth+lex
  2470. signal done1
  2471.  
  2472. level8:
  2473. if level=8 then signal done2
  2474. level=8
  2475. next=300000
  2476. thaco=thaco-2
  2477. mig=mental+maggy
  2478. if magic=yes then shield1=yes
  2479. mrating=mrating+mig
  2480. maxmrating=maxmrating+mig 
  2481. lex=pointsup+endurance
  2482. health=health+lex 
  2483. maxhealth=maxhealth+lex 
  2484. sendfile dpath||'hints4'
  2485. transmit 'f1'
  2486. signal done2
  2487.  
  2488. level9:
  2489. if level=9 then signal done2
  2490. level=9
  2491. next=500000
  2492. thaco=thaco-1
  2493. mig=mental+maggy
  2494. mrating=mrating+mig
  2495. maxmrating=maxmrating+mig 
  2496. lex=pointsup+endurance
  2497. health=health+lex 
  2498. maxhealth=maxhealth+lex 
  2499. signal done1
  2500.  
  2501. level10:
  2502. if level=10 then signal done2
  2503. level=10
  2504. next=1000000
  2505. thaco=thaco-2
  2506. mig=mental+maggy
  2507. mrating=mrating+mig
  2508. if magic=yes then muscle=yes
  2509. maxmrating=maxmrating+mig 
  2510. lex=pointsup+endurance
  2511. health=health+lex 
  2512. maxhealth=maxhealth+lex 
  2513. sendfile dpath||'hints5'
  2514. transmit 'f1'
  2515. signal done1
  2516.  
  2517. level11:
  2518. if level=11 then signal done2
  2519. level=11
  2520. next=1500000
  2521. thaco=thaco-1
  2522. mig=mental+maggy
  2523. mrating=mrating+mig
  2524. maxmrating=maxmrating+mig 
  2525. lex=pointsup+endurance
  2526. health=health+lex 
  2527. maxhealth=maxhealth+lex 
  2528. signal done1
  2529.  
  2530. level12:
  2531. if level=12 then signal done2
  2532. level=12
  2533. next=2500000
  2534. thaco=thaco-2
  2535. mig=mental+maggy
  2536. mrating=mrating+mig
  2537. maxmrating=maxmrating+mig 
  2538. if magic=yes then heal2=yes
  2539. lex=pointsup+endurance
  2540. health=health+lex 
  2541. maxhealth=maxhealth+lex 
  2542. sendfile dpath||'hints6'
  2543. transmit 'f1'
  2544. signal done1
  2545.  
  2546. level13:
  2547. if level=13 then signal done2
  2548. level=13
  2549. next=4500000
  2550. thaco=thaco-1
  2551. mig=mental+maggy
  2552. mrating=mrating+mig
  2553. maxmrating=maxmrating+mig 
  2554. lex=pointsup+endurance
  2555. health=health+lex 
  2556. maxhealth=maxhealth+lex 
  2557. signal done1
  2558.  
  2559. level14:
  2560. if level=14 then signal done2
  2561. level=14
  2562. next=7000000
  2563. thaco=thaco-2
  2564. mig=mental+maggy
  2565. mrating=mrating+mig
  2566. maxmrating=maxmrating+mig 
  2567. if magic=yes then blast2=yes
  2568. lex=pointsup+endurance
  2569. health=health+lex 
  2570. maxhealth=maxhealth+lex 
  2571. signal done1
  2572.  
  2573. level15:
  2574. if level=15 then signal done2
  2575. level=15
  2576. next=9000000
  2577. thaco=thaco-2
  2578. mig=mental+maggy
  2579. mrating=mrating+mig
  2580. maxmrating=maxmrating+mig 
  2581. lex=pointsup+endurance
  2582. health=health+lex 
  2583. maxhealth=maxhealth+lex 
  2584. signal done1
  2585.  
  2586. level16:
  2587. if level=16 then signal done2
  2588. level=16
  2589. next=12000000
  2590. thaco=thaco-2
  2591. mig=mental+maggy
  2592. mrating=mrating+mig
  2593. maxmrating=maxmrating+mig 
  2594. lex=pointsup+endurance
  2595. if magic=yes then shield2=yes
  2596. health=health+lex 
  2597. maxhealth=maxhealth+lex 
  2598. signal done1
  2599.  
  2600. level17:
  2601. if level=17 then signal done2
  2602. level=17
  2603. next=15000000
  2604. thaco=thaco-2
  2605. mig=mental+maggy
  2606. mrating=mrating+mig
  2607. maxmrating=maxmrating+mig 
  2608. lex=pointsup+endurance
  2609. health=health+lex 
  2610. maxhealth=maxhealth+lex 
  2611. signal done1
  2612.  
  2613. level18:
  2614. if level=18 then signal done2
  2615. level=18
  2616. next=18000000
  2617. thaco=thaco-2
  2618. mig=mental+maggy
  2619. mrating=mrating+mig
  2620. maxmrating=maxmrating+mig 
  2621. if magic=yes then lightning=yes
  2622. lex=pointsup+endurance
  2623. health=health+lex 
  2624. maxhealth=maxhealth+lex 
  2625. signal done1
  2626.  
  2627. level19:
  2628. if level=19 then signal done2
  2629. level=19
  2630. next=21000000
  2631. thaco=thaco-2
  2632. mig=mental+maggy
  2633. mrating=mrating+mig
  2634. maxmrating=maxmrating+mig 
  2635. lex=pointsup+endurance
  2636. health=health+lex 
  2637. maxhealth=maxhealth+lex 
  2638. signal done1
  2639.  
  2640. level20:
  2641. if level=20 then signal done2
  2642. level=20
  2643. next=24000000
  2644. thaco=thaco-2
  2645. mig=mental+maggy
  2646. mrating=mrating+mig
  2647. maxmrating=maxmrating+mig 
  2648. lex=pointsup+endurance
  2649. health=health+lex 
  2650. maxhealth=maxhealth+lex
  2651. signal done1
  2652.  
  2653. level21:
  2654. if level=21 then signal done2
  2655. level=21
  2656. next=27000000
  2657. thaco=thaco-1
  2658. mig=mental+maggy
  2659. mrating=mrating+mig
  2660. maxmrating=maxmrating+mig 
  2661. lex=pointsup+endurance
  2662. health=health+lex 
  2663. maxhealth=maxhealth+lex
  2664. signal done1
  2665.  
  2666. level22:
  2667. if level=22 then signal done2
  2668. level=22
  2669. if magic=yes then mentalpunch=yes
  2670. next=3000000
  2671. thaco=thaco-2
  2672. mig=mental+maggy
  2673. mrating=mrating+mig
  2674. maxmrating=maxmrating+mig 
  2675. lex=pointsup+endurance
  2676. health=health+lex 
  2677. maxhealth=maxhealth+lex
  2678. signal done1
  2679.  
  2680. level23:
  2681. if level=23 then signal done2
  2682. level=23
  2683. next=35000000
  2684. thaco=thaco-1
  2685. mig=mental+maggy
  2686. mrating=mrating+mig
  2687. maxmrating=maxmrating+mig 
  2688. lex=pointsup+endurance
  2689. health=health+lex 
  2690. maxhealth=maxhealth+lex
  2691. signal done1
  2692.  
  2693. level24:
  2694. if level=24 then signal done2
  2695. level=24
  2696. next=40000000
  2697. if magic=yes then blast1=yes
  2698. mig=mental+maggy
  2699. mrating=mrating+mig
  2700. maxmrating=maxmrating+mig 
  2701. thaco=thaco-2
  2702. lex=pointsup+endurance
  2703. health=health+lex 
  2704. maxhealth=maxhealth+lex
  2705. signal done1
  2706.  
  2707. level25:
  2708. if level=25 then signal done2
  2709. level=25
  2710. next=45000000
  2711. thaco=thaco-1
  2712. mig=mental+maggy
  2713. mrating=mrating+mig
  2714. maxmrating=maxmrating+mig 
  2715. lex=pointsup+endurance
  2716. health=health+lex 
  2717. maxhealth=maxhealth+lex
  2718. signal done1
  2719.  
  2720. level26:
  2721. if level=26 then signal done2
  2722. level=26
  2723. next=50000000
  2724. thaco=thaco-2
  2725. mig=mental+maggy
  2726. mrating=mrating+mig
  2727. maxmrating=maxmrating+mig
  2728. if magic=yes then shield1=yes 
  2729. lex=pointsup+endurance
  2730. health=health+lex 
  2731. maxhealth=maxhealth+lex 
  2732. signal done1
  2733.  
  2734. level27:
  2735. if level=27 then signal done2
  2736. level=27
  2737. next=55000000
  2738. thaco=thaco-1
  2739. mig=mental+maggy
  2740. mrating=mrating+mig
  2741. maxmrating=maxmrating+mig 
  2742. lex=pointsup+endurance
  2743. health=health+lex 
  2744. maxhealth=maxhealth+lex 
  2745. signal done1
  2746.  
  2747. level28:
  2748. if level=28 then signal done2
  2749. level=28
  2750. next=60000000
  2751. thaco=thaco-2
  2752. mig=mental+maggy
  2753. mrating=mrating+mig
  2754. maxmrating=maxmrating+mig 
  2755. if magic=yes then muscle2=yes
  2756. lex=pointsup+endurance
  2757. health=health+lex 
  2758. maxhealth=maxhealth+lex 
  2759. signal done1
  2760.  
  2761. level29:
  2762. if level=29 then signal done2
  2763. level=29
  2764. next=65000000
  2765. thaco=thaco-1
  2766. mig=mental+maggy
  2767. mrating=mrating+mig
  2768. maxmrating=maxmrating+mig 
  2769. lex=pointsup+endurance
  2770. health=health+lex 
  2771. maxhealth=maxhealth+lex 
  2772. signal done1
  2773.  
  2774. level30:
  2775. if level=30 then signal done2
  2776. level=30
  2777. next=70000000
  2778. thaco=thaco-2
  2779. mig=mental+maggy
  2780. mrating=mrating+mig
  2781. maxmrating=maxmrating+mig 
  2782. if magic=yes then heal2=yes
  2783. lex=pointsup+endurance
  2784. health=health+lex 
  2785. maxhealth=maxhealth+lex 
  2786. signal done1
  2787.  
  2788. level31:
  2789. if level=31 then signal done2
  2790. level=31
  2791. next=75000000
  2792. thaco=thaco-2
  2793. mig=mental+maggy
  2794. mrating=mrating+mig
  2795. maxmrating=maxmrating+mig 
  2796. lex=pointsup+endurance
  2797. health=health+lex 
  2798. maxhealth=maxhealth+lex 
  2799. signal done1
  2800.  
  2801. level32:
  2802. if level=32 then signal done2
  2803. level=32
  2804. next=80000000
  2805. thaco=thaco-2
  2806. mig=mental+maggy
  2807. mrating=mrating+mig
  2808. maxmrating=maxmrating+mig 
  2809. if magic=yes then blast2=yes
  2810. lex=pointsup+endurance
  2811. health=health+lex 
  2812. maxhealth=maxhealth+lex 
  2813. signal done1
  2814.  
  2815. level33:
  2816. if level=33 then signal done2
  2817. level=33
  2818. next=85000000
  2819. thaco=thaco-2
  2820. mig=mental+maggy
  2821. mrating=mrating+mig
  2822. maxmrating=maxmrating+mig 
  2823. lex=pointsup+endurance
  2824. health=health+lex 
  2825. maxhealth=maxhealth+lex 
  2826. signal done1
  2827.  
  2828. level34:
  2829. if level=34 then signal done2
  2830. level=34
  2831. next=90000000
  2832. thaco=thaco-2
  2833. mig=mental+maggy
  2834. mrating=mrating+mig
  2835. maxmrating=maxmrating+mig 
  2836. if magic=yes then shield2=yes
  2837. lex=pointsup+endurance
  2838. health=health+lex 
  2839. maxhealth=maxhealth+lex 
  2840. signal done1
  2841.  
  2842. level35:
  2843. if level=35 then signal done2
  2844. level=35
  2845. next=95000000
  2846. thaco=thaco-2
  2847. mig=mental+maggy
  2848. mrating=mrating+mig
  2849. maxmrating=maxmrating+mig 
  2850. lex=pointsup+endurance
  2851. health=health+lex 
  2852. maxhealth=maxhealth+lex 
  2853. signal done1
  2854.  
  2855. level36:
  2856. if level=36 then signal done2
  2857. level=36
  2858. next=100000000
  2859. thaco=thaco-2
  2860. mig=mental+maggy
  2861. mrating=mrating+mig
  2862. maxmrating=maxmrating+mig 
  2863. if magic=yes then lightning=yes
  2864. lex=pointsup+endurance
  2865. health=health+lex 
  2866. maxhealth=maxhealth+lex 
  2867. signal done1
  2868.  
  2869. level37:
  2870. if level=37 then signal done2
  2871. level=37
  2872. next=999999999999
  2873. thaco=thaco-1
  2874. mig=mental+maggy
  2875. mrating=mrating+mig
  2876. maxmrating=maxmrating+mig 
  2877. lex=pointsup+endurance
  2878. health=health+lex 
  2879. maxhealth=maxhealth+lex 
  2880. signal done1
  2881.  
  2882. done1:
  2883. transmit 's1c9Congratulations,cf' name'c9! You are now levelcf' level's0w2'
  2884. signal done2
  2885.  
  2886. wimp:
  2887. transmit 'ce'pl 'is not up to your skill level. Try someone elsew2'
  2888. signal war
  2889.  
  2890. levelgain:
  2891. if level=1 then signal level2
  2892. if level=2 then signal level3
  2893. if level=3 then signal level4
  2894. if level=4 then signal level5
  2895. if level=5 then signal level6
  2896. if level=6 then signal level7
  2897. if level=7 then signal level8
  2898. if level=8 then signal level9
  2899. if level=9 then signal level10
  2900. if level=10 then signal level11
  2901. if level=11 then signal level12
  2902. if level=12 then signal level13
  2903. if level=13 then signal level14
  2904. if level=14 then signal level15
  2905. if level=15 then signal level16
  2906. if level=16 then signal level17
  2907. if level=17 then signal level18
  2908. if level=18 then signal level19
  2909. if level=19 then signal level20
  2910. if level=20 then signal level21
  2911. if level=21 then signal level22
  2912. if level=22 then signal level23
  2913. if level=23 then signal level24
  2914. if level=24 then signal level25
  2915. if level=25 then signal level26
  2916. if level=26 then signal level27
  2917. if level=27 then signal level28
  2918. if level=28 then signal level29
  2919. if level=29 then signal level30
  2920. if level=30 then signal level31
  2921. if level=31 then signal level32
  2922. if level=32 then signal level33
  2923. if level=33 then signal level34
  2924. if level=34 then signal level35
  2925. if level=35 then signal level36
  2926. if level=36 then signal level37
  2927. signal done2
  2928.  
  2929. bank:
  2930. if visits>3 then signal comebacklater
  2931. transmit 'f1n2cfWelcome to the c9Battle Landscf bankw2'
  2932. transmit 'n1cbQcauit   cbScatart Account   cbEcanter Bank'
  2933. sendstring 'n1cfWhat do you wish to do?? '
  2934. getchar
  2935. bk=upper(result);transmit 'cb'bk
  2936. if bk=p then signal quit
  2937. if bk='' then signal bank
  2938. if bk='Q' then signal main
  2939. if bk='S' then signal setupb
  2940. if bk='E' then signal access1
  2941. signal bank
  2942.  
  2943. comebacklater:
  2944. transmit 'ceYou have visited the bank too many times todayw2'
  2945. signal main
  2946.  
  2947. setupb:
  2948. transmit 'n1cdSo now you must choose a personal account number!w2'
  2949. transmit 'n1cfPlease follow these rules:'
  2950. transmit '1. Do not make the account number more than 10 digits.'
  2951. transmit '2. Do not make the account number with all zeros (0).'
  2952. transmit '3. Use only numbers (0-9).'
  2953. transmit '4. Remember the number if you plan on accessing your account.'
  2954. query 'n1cbEnter your account number herece>>> '
  2955. acc=upper(result);transmit 'c9'acc
  2956. if acc=p then signal quit
  2957. if acc='' then signal setupb
  2958. if acc='Q' then signal bank
  2959. if acc>9999999999 then signal setupb
  2960. account=acc
  2961. account1=0
  2962. signal banksave
  2963.  
  2964. banksave:
  2965. call open(1,upath'bank/'||acc,'w')
  2966. call writeln(1,name)
  2967. call writeln(1,account1)
  2968. call close(1)
  2969. account=acc
  2970. signal access1
  2971.  
  2972. banksave1:
  2973. call open(1,upath'bank/'||acc,'w')
  2974. call writeln(1,nameb)
  2975. call writeln(1,account1)
  2976. call close(1)
  2977. signal bankact
  2978.  
  2979. access1:
  2980. visits=visits+1
  2981. query 'f1n2caENTER YOUR ACCOUNT#ca>> '
  2982. acc=upper(result);transmit 'c9'acc
  2983. if acc=p then signal quit
  2984. if acc='Q' then signal main
  2985. if acc='' then signal access1
  2986. if exists(upath'bank/'acc)=1 then signal bankload
  2987. transmit 'ccNO SUCH ACCOUNT ON RECORDw2'
  2988. signal access1
  2989.  
  2990. Bankload:
  2991. call open(1,upath||'bank/'||acc,'r')
  2992. nameb=readln(1)
  2993. account1=readln(1)
  2994. call close(1)
  2995. signal bankact
  2996.  
  2997. bankact:
  2998. transmit 'cfWelcomece' nameb 'cf. You have $ce' account1 'cfin your account.'
  2999. transmit 'cfYou have $ce' money 'cfin your pocket!'
  3000. sendstring 'n1caWould you like to c9Dcaepositc9 Wcaithdraw orc9 Qcauit? '
  3001. getchar
  3002. act=upper(result)
  3003. if act='' then signal bankact
  3004. if act=p then signal quit
  3005. if act='W' then signal withdr
  3006. if act='D' then signal deposit1
  3007. if act='Q' then signal main
  3008. transmit ''
  3009. signal bankact
  3010.  
  3011. deposit1:
  3012. query 'can1How much do you wish to deposit?c9 '
  3013. dpt=upper(result);transmit 'cb'dpt
  3014. if dpt='' then signal deposit1
  3015. if dpt>money then signal bankact
  3016. if dpt=p then signal quit
  3017. if dpt='Q' then signal main
  3018. money=money-dpt
  3019. account1=account1+dpt
  3020. signal banksave1
  3021.  
  3022. withdr:
  3023. if account1<1 then signal access1
  3024. query 'can1How much money would you like to withdraw?c9 '
  3025. wdr=upper(result);transmit 'ca'wdr
  3026. if wdr>account1 then signal bankact
  3027. if wdr=p then signal quit
  3028. if wdr='' then signal withdr
  3029. account1=account1-wdr
  3030. money=money+wdr
  3031. signal banksave1
  3032.  
  3033. dope:
  3034. transmit 'n1c9You have no money to withdraw.w2'
  3035. signal bankact
  3036.  
  3037. quit:
  3038. transmit 'f1'
  3039. transmit 'n1c3Ending this round and saving your current stats...'
  3040. call savestats
  3041. transmit 'n1c6Finished...w1'
  3042. bufferflush
  3043. exit
  3044.  
  3045. camp:
  3046. transmit 'f1'
  3047. transmit 'n1c5You decided to bed down here for the night...'
  3048. call savestats
  3049. transmit 'n1c6Your statistics and location have been saved...w1'
  3050. exit
  3051.  
  3052. savestats:
  3053. call open(1,upath'stats/'||name,'w')
  3054. call writeln(1,money)
  3055. call writeln(1,health)
  3056. call writeln(1,maxhealth)
  3057. call writeln(1,strength)
  3058. call writeln(1,agility)
  3059. call writeln(1,endurance)
  3060. call writeln(1,mental)
  3061. call writeln(1,experience)
  3062. call writeln(1,level)
  3063. call writeln(1,class)
  3064. call writeln(1,race)
  3065. call writeln(1,weapon)
  3066. call writeln(1,armor)
  3067. call writeln(1,mrating)
  3068. call writeln(1,maxmrating)
  3069. call writeln(1,elecstorm)
  3070. call writeln(1,mentalpunch)
  3071. call writeln(1,heal1)
  3072. call writeln(1,blast1)
  3073. call writeln(1,shield1)
  3074. call writeln(1,muscle)
  3075. call writeln(1,heal2)
  3076. call writeln(1,blast2)
  3077. call writeln(1,shield2)
  3078. call writeln(1,metalstorm)
  3079. call writeln(1,lightning)
  3080. call writeln(1,missile)
  3081. call writeln(1,nuke)
  3082. call writeln(1,nuke2)
  3083. call writeln(1,devastate)
  3084. call writeln(1,heal3)
  3085. call writeln(1,summons)
  3086. call writeln(1,rage)
  3087. call writeln(1,becomesteel)
  3088. call writeln(1,muschip)
  3089. call writeln(1,physchip)
  3090. call writeln(1,linkchip)
  3091. call writeln(1,menchip)
  3092. call writeln(1,kadchip)
  3093. call writeln(1,pirchip)
  3094. call writeln(1,medkit)
  3095. call writeln(1,meduses)
  3096. call writeln(1,infogog)
  3097. call writeln(1,cboots)
  3098. call writeln(1,ac)
  3099. call writeln(1,thaco)
  3100. call writeln(1,assault)
  3101. call writeln(1,mountaineer)
  3102. call writeln(1,computers)
  3103. call writeln(1,historian)
  3104. call writeln(1,salesman)
  3105. call writeln(1,governments)
  3106. call writeln(1,medical)
  3107. call writeln(1,religion)
  3108. call writeln(1,racestudy)
  3109. call writeln(1,defense)
  3110. call writeln(1,disguise)
  3111. call writeln(1,gambling)
  3112. call writeln(1,damage)
  3113. call writeln(1,complete)
  3114. call writeln(1,weapondam)
  3115. call writeln(1,strdam)
  3116. call writeln(1,next)
  3117. call writeln(1,pfight)
  3118. call writeln(1,maxpfight)
  3119. call writeln(1,turn)
  3120. call writeln(1,maxturn)
  3121. call writeln(1,map)
  3122. call writeln(1,x)
  3123. call writeln(1,y)
  3124. call writeln(1,magic)
  3125. call writeln(1,account)
  3126. call writeln(1,key1)
  3127. call writeln(1,key2)
  3128. call writeln(1,key3)
  3129. call writeln(1,key4)
  3130. call writeln(1,key5)
  3131. call writeln(1,pointsup)
  3132. call writeln(1,tpass)
  3133. call writeln(1,flight)
  3134. call writeln(1,uvir)
  3135. call writeln(1,radit)
  3136. call writeln(1,fvk)
  3137. call writeln(1,fshield)
  3138. call writeln(1,flaga)
  3139. call writeln(1,flagb)
  3140. call writeln(1,flagc)
  3141. call writeln(1,flagd)
  3142. call writeln(1,flage)
  3143. call writeln(1,maggy)
  3144. call writeln(1,bmarket)
  3145. call writeln(1,incity#)
  3146. call writeln(1,city1)
  3147. call writeln(1,city2)
  3148. call writeln(1,city3)
  3149. call writeln(1,city4)
  3150. call writeln(1,city5)
  3151. call writeln(1,magnagren)
  3152. call writeln(1,novagren)
  3153. call writeln(1,visits)
  3154. call close(1)
  3155. return
  3156.  
  3157. healershop:
  3158. transmit 'f1n2s1cdHello' name 'and welcome to the healer...s0'
  3159. transmit 'n1ccOur rates are $10 for each health & Magic point healed...'
  3160. transmit 'n1ceWhat would you like done?'
  3161. transmit 'n1cdYour current health is:cf' health 'cdof a possible:cf' maxhealth
  3162. transmit 'cdYour current magic rating is:cf' mrating 'cdof a possible:cf' maxmrating
  3163. transmit 'n1c9Qcauit  c9Hcaeal All  c9Pcaoint Heal  c9Mcaagic Rating'
  3164. query 'n1cfRelax & Input Your Desirece>>> '
  3165. pt=upper(result);transmit 'ce'pt
  3166. if pt=p then signal quit
  3167. if pt='' then signal healershop
  3168. if pt='Q' then signal shop
  3169. if pt='H' then signal healall
  3170. if pt='P' then signal pointheal
  3171. if pt='M' then signal magicheal
  3172. if pt=freebie then signal cheatheal
  3173. if pt=agilup then signal agilb
  3174. if pt=brainboy then signal mentalb
  3175. if pt=beback then signal strenb
  3176. if pt=feelgood then signal endurb
  3177. signal healershop
  3178.  
  3179. agilb:
  3180. transmit 'can1This procedure will cost $1,000,000.00w1'
  3181. if money<1000000 then signal broke
  3182. transmit 'n1c9s1This will take a while....'
  3183. transmit 'n1cfA few days later you are much more agile...w2s0'
  3184. agility=agility+2
  3185. ac=ac+1
  3186. money=money-1000000
  3187. signal main
  3188.  
  3189. mentalb:
  3190. transmit 'can1This procedure will cost $2,000,000.00w1'
  3191. if money<2000000 then signal broke
  3192. transmit 'n1c9s1This will take a while....'
  3193. transmit 'n1cfA few days later you are much more intelligent...w2s0'
  3194. mental=mental+2
  3195. money=money-2000000
  3196. signal main
  3197.  
  3198. strenb:
  3199. transmit 'can1This procedure will cost $3,000,000.00w1'
  3200. if money<3000000 then signal broke
  3201. transmit 'n1c9s1This will take a while....'
  3202. transmit 'n1cfA few days later you are much stronger...w2s0'
  3203. strength=strength+2
  3204. strdam=strdam+1
  3205. money=money-3000000
  3206. signal main
  3207.  
  3208. endurb:
  3209. transmit 'can1This procedure will cost $4,000,000.00w1'
  3210. if money<4000000 then signal broke
  3211. transmit 'n1c9s1This will take a while....'
  3212. transmit 'n1cfA few days later you are much more durable...w2s0'
  3213. endurance=endurance+2
  3214. health=health+40
  3215. maxhealth=maxhealth+40
  3216. money=money-4000000
  3217. signal main
  3218.  
  3219. cheatheal:
  3220. transmit 'cfAh, a very sneaky individual. Very well we shall heal you for free!w2'
  3221. health=maxhealth
  3222. mrating=maxmrating
  3223. signal shop
  3224.  
  3225. healall:
  3226. pts=maxhealth-health
  3227. meg=maxmrating-mrating
  3228. acost=pts*10
  3229. mcost=meg*10
  3230. hcost=acost+mcost
  3231. if hcost>money then signal broke
  3232. transmit 'c6s1Making you better...s0w2'
  3233. health=maxhealth
  3234. mrating=maxmrating
  3235. money=money-hcost
  3236. transmit 'ces1All better now...s0w2'
  3237. signal shop
  3238.  
  3239. magicheal:
  3240. query 'ceHow many Magic Rating Points do you want healed? '
  3241. mgp=upper(result);transmit 'cb'mgp
  3242. if mgp=p then signal quit
  3243. if mgp='Q' then signal healershop
  3244. if mgp='' then signal magicheal
  3245. if mgp*10>money then signal broke
  3246. if mgp>maxmrating-mrating then signal noway1
  3247. mrating=mrating+mgp
  3248. money=money-mgp*10
  3249. transmit 'cbYou have been healedcf' mgp 'w2'
  3250. signal shop
  3251.  
  3252. noway1:
  3253. transmit 'cfYou cannot have more thance' maxmrating 'cf magic points!w2'
  3254. signal magicheal
  3255.  
  3256. pointheal:
  3257. query 'ceHow many points do you wish to heal?w2 ';
  3258. pnts=upper(result);transmit 'cb'pnts
  3259. if pnts=p then signal quit
  3260. if pnts='Q' then signal healershop
  3261. if pnts='' then signal pointheal
  3262. if pnts*10>money then signal broke
  3263. if pnts>maxhealth-health then signal noway
  3264. health=health+pnts
  3265. money=money-pnts*10
  3266. transmit 'cbYou have been healedcf' pnts 'w2'
  3267. signal shop
  3268.  
  3269. noway:
  3270. transmit 'cfYou cannot have more thance' maxhealth 'cfpoints!w2'
  3271. signal pointheal
  3272.  
  3273. broke:
  3274. transmit 'c9I am sorry you do not have the funds for this optionw2'
  3275. signal healershop
  3276.  
  3277. signal main
  3278.  
  3279. error:
  3280. syntax:
  3281. call close(1)
  3282. call close(2)
  3283. call close(3)
  3284. transmit 'c7Error at line 'sigl' in Battle Lands'
  3285. transmit sourceline(sigl)
  3286. call savestats
  3287. exit
  3288.  
  3289. monsterattack:
  3290. moves=0
  3291. mat=VRnd(1,10)
  3292. if mat<7 then signal mapcall /* MAKE A NOTE TO CHANGE THIS AFTER TESTING */
  3293. if mat=7 then signal mapcall /* THIS WILL BECOME NPC AFTER TESTS */
  3294. if mat>7 then signal montack
  3295. signal move /* THIS WILL BECOME MOVE AFTER TESTS */
  3296.  
  3297. montack:
  3298. if map=3 then signal mon11
  3299. if map=4 then signal mon12
  3300. if map=6 then signal mon13
  3301. if level=1 then signal mon1
  3302. if level=2 then signal mon1
  3303. if level=3 then signal mon2
  3304. if level=4 then signal mon2
  3305. if level=5 then signal mon3
  3306. if level=6 then signal mon3
  3307. if level=7 then signal mon4
  3308. if level=8 then signal mon4
  3309. if level=9 then signal mon5
  3310. if level=10 then signal mon5
  3311. if level=11 then signal mon6
  3312. if level=12 then signal mon6
  3313. if level=13 then signal mon6
  3314. if level=14 then signal mon7
  3315. if level=15 then signal mon7
  3316. if level=16 then signal mon7
  3317. if level=17 then signal mon8
  3318. if level=18 then signal mon8
  3319. if level=19 then signal mon8
  3320. if level=20 then signal mon9
  3321. if level=21 then signal mon9
  3322. if level=22 then signal mon9
  3323. if level=23 then signal mon10
  3324. if level=24 then signal mon10
  3325. if level=25 then signal mon10
  3326. signal mon10 
  3327.  
  3328. mon1:
  3329. mon=VRnd(1,15) 
  3330. if mon=1 then mon=Rat Boy
  3331. if mon=2 then mon=Dungeon Miff
  3332. if mon=3 then mon=Helix Fern
  3333. if mon=4 then mon=Scamp Bloom
  3334. if mon=5 then mon=Scum Bucket
  3335. if mon=6 then mon=Office Floozie
  3336. if mon=7 then mon=City Dweller
  3337. if mon=8 then mon=Cave Newt
  3338. if mon=9 then mon=Servant Droid
  3339. if mon=10 then mon=Villuxator
  3340. if mon=11 then mon=weenie
  3341. if mon=12 then mon=wolf
  3342. if mon=13 then mon=adventure rat
  3343. if mon=14 then mon=Igon
  3344. if mon=15 then mon=Ice Blaster
  3345. signal loadmonster1
  3346.  
  3347. mon2:
  3348. mon=VRnd(1,15) 
  3349. if mon=1 then mon=Villuxator
  3350. if mon=2 then mon=Igon
  3351. if mon=3 then mon=Killer Swarm
  3352. if mon=4 then mon=Buzz Devil
  3353. if mon=5 then mon=Maintenance Droid
  3354. if mon=6 then mon=Ice Blaster
  3355. if mon=7 then mon=Office Guard
  3356. if mon=8 then mon=City Officer
  3357. if mon=9 then mon=Gatorlope
  3358. if mon=10 then mon=Mechanic Droid
  3359. if mon=11 then mon=adventure rat
  3360. if mon=12 then mon=Office Floozie
  3361. if mon=13 then mon=flying beast
  3362. if mon=14 then mon=racing ooze
  3363. if mon=15 then mon=poodle
  3364. signal loadmonster1
  3365.  
  3366. mon3:
  3367. mon=VRnd(1,15)
  3368. if mon=1 then mon=Gatorlope
  3369. if mon=2 then mon=Office Guard
  3370. if mon=3 then mon=Backer
  3371. if mon=4 then mon=Cryoknight
  3372. if mon=5 then mon=Blackness
  3373. if mon=6 then mon=pitbull
  3374. if mon=7 then mon=poodle
  3375. if mon=8 then mon=gangbanger
  3376. if mon=9 then mon=sewer rat
  3377. if mon=10 then mon=guardian
  3378. if mon=11 then mon=snowman
  3379. if mon=12 then mon=flying beast
  3380. if mon=13 then mon=sunman
  3381. if mon=14 then mon=bandit
  3382. if mon=15 then mon=screamer
  3383. signal loadmonster1
  3384.  
  3385. mon4:
  3386. mon=VRnd(1,10)
  3387. if mon=1 then mon=pitbull
  3388. if mon=2 then mon=solar rat
  3389. if mon=3 then mon=runt
  3390. if mon=4 then mon=predator
  3391. if mon=5 then mon=tech guard
  3392. if mon=6 then mon=elite guard
  3393. if mon=7 then mon=giant
  3394. if mon=8 then mon=alien
  3395. if mon=9 then mon=gas monster
  3396. if mon=10 then mon=water fiend
  3397. signal loadmonster1
  3398.  
  3399. mon5:
  3400. mon=VRnd(1,10)
  3401. if mon=1 then mon=water fiend
  3402. if mon=2 then mon=Blood Sucker
  3403. if mon=3 then mon=phantom
  3404. if mon=4 then mon=servant spider
  3405. if mon=5 then mon=mentalist
  3406. if mon=6 then mon=phase hero
  3407. if mon=7 then mon=stone beast
  3408. if mon=8 then mon=gamma spider
  3409. if mon=9 then mon=warrior
  3410. if mon=10 then mon=electric devil
  3411. signal loadmonster1
  3412.  
  3413. mon6:
  3414. mon=VRnd(1,10)
  3415. if mon=1 then mon=electric devil
  3416. if mon=2 then mon=warrior
  3417. if mon=3 then mon=gamma spider
  3418. if mon=4 then mon=spider from hell
  3419. if mon=5 then mon=singer
  3420. if mon=6 then mon=scourge
  3421. if mon=7 then mon=udrak
  3422. if mon=8 then mon=gateway shock trooper
  3423. if mon=9 then mon=entity
  3424. if mon=10 then mon=stone beast
  3425. signal loadmonster1
  3426.  
  3427. mon7:
  3428. mon=VRnd(1,10)
  3429. if mon=1 then mon=scourge
  3430. if mon=2 then mon=udrak
  3431. if mon=3 then mon=entity
  3432. if mon=4 then mon=chrome beast
  3433. if mon=5 then mon=Attritoa
  3434. if mon=6 then mon=Caticore
  3435. if mon=7 then mon=Proalyn
  3436. if mon=8 then mon=Light Beast
  3437. if mon=9 then mon=Shreeva
  3438. if mon=10 then mon=Kryt0x
  3439. call loadmonster1
  3440.  
  3441. mon8:
  3442. mon=VRnd(1,10)
  3443. if mon=1 then mon=Dark Beast
  3444. if mon=2 then mon=Lava Warrior
  3445. if mon=3 then mon=Strangle Lich
  3446. if mon=4 then mon=Mind Giant
  3447. if mon=5 then mon=Time Golem
  3448. if mon=6 then mon=Nether Region Trooper
  3449. if mon=7 then mon=Proalyn
  3450. if mon=8 then mon=Light Beast
  3451. if mon=9 then mon=Shreeva
  3452. if mon=10 then mon=Kryt0x
  3453. call loadmonster1 
  3454.  
  3455. mon9:
  3456. mon=VRnd(1,10)
  3457. if mon=1 then mon=Dark Beast
  3458. if mon=2 then mon=Lava Warrior
  3459. if mon=3 then mon=Strangle Lich
  3460. if mon=4 then mon=Mind Giant
  3461. if mon=5 then mon=Time Golem
  3462. if mon=6 then mon=Nether Region Trooper
  3463. if mon=7 then mon=Villain Clone
  3464. if mon=8 then mon=Vault Guardian
  3465. if mon=9 then mon=Void
  3466. if mon=10 then mon=Sould Fiend
  3467. call loadmonster1 
  3468.  
  3469. mon10:
  3470. mon=VRnd(1,10)
  3471. if mon=1 then mon=Godzilla
  3472. if mon=2 then mon=Jzeredenon
  3473. if mon=3 then mon=Mescochalmia
  3474. if mon=4 then mon=Bozium
  3475. if mon=5 then mon=Holocaust
  3476. if mon=6 then mon=Lovecraft
  3477. if mon=7 then mon=Villain Clone
  3478. if mon=8 then mon=Vault Guardian
  3479. if mon=9 then mon=Void
  3480. if mon=10 then mon=Soul Fiend
  3481. call loadmonster1 
  3482.  
  3483. mon11:
  3484. mon=Vrnd(1,5)
  3485. if mon=1 then mon=Shining Knight
  3486. if mon=2 then mon=Castle Guardian
  3487. if mon=3 then mon=Ancient Spectre
  3488. if mon=4 then mon=Castle Demon
  3489. if mon=5 then mon=Castle Mage
  3490. signal loadmonster1
  3491.  
  3492. mon12:
  3493. mon=VRnd(1,3)
  3494. if mon=1 then mon=udrak warrior
  3495. if mon=2 then mon=alien beast
  3496. if mon=3 then mon=udrak knight
  3497. signal loadmonster1
  3498.  
  3499. mon13:
  3500. mon=VRnd(1,4)
  3501. if mon=1 then mon=Military Guard
  3502. if mon=2 then mon=Platoon Leader
  3503. if mon=3 then mon=P.O.W.
  3504. if mon=4 then mon=General
  3505. signal loadmonster1
  3506.  
  3507. loadmonster1:
  3508. call open(1,epath||mon)
  3509. monhealth=readln(1)
  3510. mondam=readln(1)
  3511. monweapon=readln(1)
  3512. monvalue=readln(1)
  3513. monmoney=readln(1)
  3514. monthaco=readln(1)
  3515. monac=readln(1)
  3516. mondes=readln(1)
  3517. monagility=readln(1)
  3518. call close(1)
  3519. signal battle
  3520.  
  3521. battle:
  3522. transmit 'f1n2cfs1'mondes 's0w2'
  3523. if agility>monagility then signal battle1
  3524. transmit 'n1cfThe' mon ' is faster than you! Too bad!w2'
  3525. signal monaturn
  3526.  
  3527. battle1:
  3528. transmit 'f1n2cfIT IS YOUR MOVE'
  3529. transmit 'n1c9Your health:cf' health     'c9Health of thecb' mon'c9:cf' monhealth
  3530. transmit 'n1c9Acettack  c9Mceagic  c9Icetem  c9Rceun!'
  3531. sendstring 'n2caWhat will it be? '
  3532. getchar
  3533. sa=upper(result)
  3534. if sa='A' then signal battle2
  3535. if sa='M' then signal magic30
  3536. if sa='I' then signal item30
  3537. if sa='R' then signal run2
  3538. if sa=p then signal quit
  3539. if sa='' then signal war3
  3540. signal battle2
  3541.  
  3542. item30:
  3543. transmit 'f1n1ceCombat Items:'
  3544. transmit 'cb1 cfMedical Kit   ceAVAILABLE:c9' medkit
  3545. transmit 'cb2 cfInfo Goggles  ceAVAILABLE:c9' infogog
  3546. transmit 'cb3 cfMagna Grenade ceAVAILABLE:c9' magnagren
  3547. transmit 'cb4 cfInfo Helm     ceAVAILABLE:c9' uvir
  3548. transmit 'cb5 cfNova Grenade  ceAVAILABLE:c9' novagren
  3549. sendstring 'n1ccPlease select an Item c9# ccto usece>>> '
  3550. getchar
  3551. itu=upper(result)
  3552. if itu=p then signal quit
  3553. if itu='Q' then signal battle1
  3554. if itu='' then signal item30
  3555. if itu='1' then signal medkit5
  3556. if itu='2' then signal infogog5
  3557. if itu='3' then signal magnagren52
  3558. if itu='4' then signal uvir52
  3559. if itu='5' then signal novagren52
  3560. signal item30
  3561.  
  3562. uvir52:
  3563. if uvir=no then signal noitem
  3564. transmit 'f1n1ce'mon 'info!'
  3565. transmit 'n1caHealth  :cf' monhealth
  3566. transmit 'caDamage  :cf' mondam
  3567. transmit 'caWeapon  :cf' monweapon
  3568. transmit 'caMoney   :cf' monmoney
  3569. transmit 'caThaco   :cf' monthaco
  3570. transmit 'caAC      :cf' monac
  3571. gfc=monthaco+ac
  3572. gfx=monac+thaco
  3573. transmit 'n1s1cbOn a roll of 1-20 the' mon 'will need ac9' gfc 'cbor better to hit you!!!s0'
  3574. transmit 'n1s1cbYou will gainc9' monvalue 'cbexperience for killing them!!s0'
  3575. transmit 'n1s1caIn order for you to hit them you will need ac9' gfx 'caor betters0'
  3576. if gfx>17 then transmit 'n1s1cfI suggest you either c9Runcf,c9 Use Magiccf orc9 Lob a Grenadecf!!s0'
  3577. transmit 'n1c9Hit any key when finished...g1'
  3578. signal item30
  3579.  
  3580. novagren52:
  3581. if novagren=0 then signal noitem
  3582. transmit 'n1cfYou lob a Nova Grenade at your enemy!w2'
  3583. gdam=VRnd(200,500)*2
  3584. transmit 'cfYou didc9' gdam 'cfpoints of damage!w2'
  3585. monhealth=monhealth-gdam
  3586. novagren=novagren-1
  3587. signal modeath
  3588.  
  3589. magnagren52:
  3590. if magnagren=0 then signal noitem
  3591. transmit 'n1cfYou lob a Magna Grenade at your enemy!w2'
  3592. gdam=VRnd(100,300)*2
  3593. transmit 'cfYou didc9' gdam 'cfpoints of damage!w2'
  3594. monhealth=monhealth-gdam
  3595. magnagren=magnagren-1
  3596. signal modeath
  3597.  
  3598. medkit5:
  3599. if medkit=0 then signal noitem
  3600. health=maxhealth
  3601. meduses=meduses-1
  3602. if meduses=0 then signal medkit5a
  3603. transmit 'ceYou are healed!w2'
  3604. signal monaturn
  3605.  
  3606. medkit5a:
  3607. medkit=medkit-1
  3608. if medkit>0 then meduses=3
  3609. signal monaturn
  3610.  
  3611. infogog5:
  3612. if infogog=no then signal noitem
  3613. transmit 'f1n1ce'mon 'info!'
  3614. transmit 'n1caHealth  :cf' monhealth
  3615. transmit 'caDamage  :cf' mondam
  3616. transmit 'caWeapon  :cf' monweapon
  3617. transmit 'caMoney   :cf' monmoney
  3618. transmit 'caValue   :cf' monvalue 'caexperience points'
  3619. transmit 'caThaco   :cf' monthaco
  3620. transmit 'caAC      :cf' monac
  3621. transmit 'caAgility :cf' monagility
  3622. transmit 'n1c9Hit any key when finished...g1'
  3623. signal monaturn
  3624.  
  3625. noitem:
  3626. transmit 'n1c9You do not have that item!w2'
  3627. signal item30
  3628.  
  3629. magic30:
  3630. if magic=no then signal nomagic1
  3631. transmit 'f1n1cePossible combat spells:'
  3632. transmit 'cb1  cfElectro Storm ceAVAILABLE:c9' elecstorm
  3633. transmit 'cb2  cfMental Punch  ceAVAILABLE:c9' mentalpunch
  3634. transmit 'cb3  cfLow Heal      ceAVAILABLE:c9' heal1
  3635. transmit 'cb4  cfLow Blast     ceAVAILABLE:c9' blast1
  3636. transmit 'cb5  cfLow Shield    ceAVAILABLE:c9' shield1
  3637. transmit 'cb6  cfMuscle        ceAVAILABLE:c9' muscle
  3638. transmit 'cb7  cfHigh Heal     ceAVAILABLE:c9' heal2
  3639. transmit 'cb8  cfHigh Blast    ceAVAILABLE:c9' blast2
  3640. transmit 'cb9  cfHigh Shield   ceAVAILABLE:c9' shield2
  3641. transmit 'cb10 cfMetal Storm   ceAVAILABLE:c9' metalstorm
  3642. transmit 'cb11 cfLightning     ceAVAILABLE:c9' lightning
  3643. transmit 'cb12 cfMissile       ceAVAILABLE:c9' missile
  3644. transmit 'cb13 cfNuke          ceAVAILABLE:c9' nuke
  3645. transmit 'cb14 cfDevastate     ceAVAILABLE:c9' devastate
  3646. transmit 'cb15 cfHigh Nuke     ceAVAILABLE:c9' nuke2
  3647. transmit 'cb16 cfHeal All      ceAVAILABLE:c9' heal3
  3648. transmit 'cb17 cfRage          ceAVAILABLE:c9' rage
  3649. transmit 'cb18 cfBecome Steel  ceAVAILABLE:c9' becomesteel
  3650. query 'n1caPlease choose an available number for castingce>>c9 '
  3651. spl=upper(result);transmit spl
  3652. if spl=p then signal quit
  3653. if spl='' then signal magic30
  3654. if spl='Q' then signal battle1
  3655. if spl=1 then signal estorm1
  3656. if spl=2 then signal mpunch1
  3657. if spl=3 then signal lheal1
  3658. if spl=4 then signal mblast11
  3659. if spl=5 then signal mshield11
  3660. if spl=6 then signal mmuscle1
  3661. if spl=7 then signal mheal21
  3662. if spl=8 then signal mblast21
  3663. if spl=9 then signal mshield21
  3664. if spl=10 then signal mmetalstorm1
  3665. if spl=11 then signal mlightning1
  3666. if spl=12 then signal mmissile1
  3667. if spl=13 then signal mnuke1
  3668. if spl=14 then signal mdevastate1     
  3669. if spl=15 then signal mnuke2 
  3670. if spl=16 then signal mheal31
  3671. if spl=17 then signal mrage1
  3672. if spl=18 then signal mbesteel1
  3673. signal magic30
  3674.  
  3675. mbesteel1:
  3676. if becomesteel=no then signal donthaveit1
  3677. scost=100
  3678. if scost>mrating then signal nomrating1
  3679. transmit 'ceYou cast acf Become Steel cespell on yourself!w2'
  3680. mrating=mrating-scost
  3681. monthaco=monthaco+35
  3682. signal modeath
  3683.  
  3684. mrage1:
  3685. if rage=no then signal donthaveit1
  3686. scost=400
  3687. if scost>mrating then signal nomrating1
  3688. transmit 'ceYou cast acf Rage cespell on yourself!w2'
  3689. monthaco=monthaco+20
  3690. weapondam=weapondam+30
  3691. health=maxhealth
  3692. mrating=mrating-scost
  3693. signal modeath
  3694.  
  3695. mheal31:
  3696. if heal3=no then signal donthaveit1
  3697. scost=200
  3698. if scost>mrating then signal nomrating1
  3699. transmit 'ceYou cast acf Heal cespell on yourself!w2'
  3700. health=maxhealth
  3701. mrating=mrating-scost
  3702. signal modeath
  3703.  
  3704. mnuke2:
  3705. if nuke2=no then signal donthaveit1
  3706. scost=900
  3707. if scost>mrating then signal nomrating1
  3708. transmit 'c9You have cast a cfHIGH NUKE c9at the' mon'w2'
  3709. dam=120*level
  3710. transmit 'n1c9You didcf' dam 'c9points of damage!w2'
  3711. monhealth=monhealth-dam
  3712. mrating=mrating-scost
  3713. signal modeath
  3714.  
  3715. estorm1:
  3716. if elecstorm=no then signal donthaveit1
  3717. scost=5*level
  3718. if scost>mrating then signal nomrating1
  3719. transmit 'c9You have cast a wild cfElectric Storm c9at' mon'w2'
  3720. dam=Vrnd(8,12)*level
  3721. transmit 'n1c9You didcf' dam 'c9points of damage!w2'
  3722. monhealth=monhealth-dam
  3723. mrating=mrating-scost
  3724. signal modeath
  3725.  
  3726. mpunch1:
  3727. if mentalpunch=no then signal donthaveit1
  3728. scost=10*level
  3729. if scost>mrating then signal nomrating1
  3730. transmit 'c9You have cast a powerful cfMental Punch c9at' mon'w2'
  3731. dam=VRnd(10,15)*level
  3732. transmit 'n1c9You didcf' dam 'c9points of damage!w2'
  3733. monhealth=monhealth-dam
  3734. mrating=mrating-scost
  3735. signal modeath
  3736.  
  3737. lheal1:
  3738. if heal1=no then signal donthaveit1
  3739. scost=5*level
  3740. if scost>mrating then signal nomrating1
  3741. transmit 'ceYou cast acf Heal cespell on yourself!w2'
  3742. hlt=VRnd(10,16)*level
  3743. hls=hlt+health
  3744. health=health+hlt
  3745. if hls>maxhealth then health=maxhealth
  3746. mrating=mrating-scost
  3747. signal modeath
  3748.  
  3749. mblast11:
  3750. if blast1=no then signal donthaveit1
  3751. scost=10*level
  3752. if scost>mrating then signal nomrating1
  3753. transmit 'c9You have cast a powerful cfLow Blast c9at' mon'w2'
  3754. dam=VRnd(20,25)*level
  3755. transmit 'n1c9You didcf' dam 'c9points of damage!w2'
  3756. monhealth=monhealth-dam
  3757. mrating=mrating-scost
  3758. signal modeath
  3759.  
  3760. mshield11:
  3761. if shield1=no then signal donthaveit1
  3762. scost=25
  3763. if scost>mrating then signal nomrating1
  3764. transmit 'c9You have cast a powerful cfLow Shield c9on yourself!w2'
  3765. monthaco=monthaco+7
  3766. mrating=mrating-scost
  3767. signal modeath
  3768.  
  3769. mmuscle1:
  3770. if muscle=no then signal donthaveit1
  3771. scost=30
  3772. if scost>mrating then signal nomrating1
  3773. transmit 'c9You have become very strong!w2'
  3774. weapondam=weapondam+10
  3775. mrating=mrating-scost
  3776. signal modeath
  3777.  
  3778. mheal21:
  3779. if heal2=no then signal donthaveit1
  3780. scost=10*level
  3781. if scost>mrating then signal nomrating1
  3782. transmit 'ceYou cast acf Heal cespell on yourself!w2'
  3783. hlt=VRnd(17,25)*level
  3784. hls=hlt+health
  3785. health=health+hlt
  3786. if hls>maxhealth then health=maxhealth
  3787. mrating=mrating-scost
  3788. signal modeath
  3789.  
  3790. mblast21:
  3791. if blast2=no then signal donthaveit1
  3792. scost=100
  3793. if scost>mrating then signal nomrating1
  3794. transmit 'c9You have cast a powerful cfBlast c9at' mon'w2'
  3795. dam=VRnd(25,35)*level
  3796. transmit 'n1c9You didcf' dam 'c9points of damage!w2'
  3797. monhealth=monhealth-dam
  3798. mrating=mrating-scost
  3799. signal modeath
  3800.  
  3801. mshield21:
  3802. if shield2=no then signal donthaveit1
  3803. scost=50
  3804. if scost>mrating then signal nomrating1
  3805. transmit 'c9You have cast a powerful cfShield c9on yourself!w2'
  3806. monthaco=monthaco+11
  3807. mrating=mrating-scost
  3808. signal modeath
  3809.  
  3810. mmetalstorm1:
  3811. if metalstorm=no then signal donthaveit1
  3812. scost=200
  3813. if scost>mrating then signal nomrating1
  3814. transmit 'c9You have cast a powerful cfMetal Storm c9at' mon'w2'
  3815. dam=VRnd(35,45)*level
  3816. transmit 'n1c9You didcf' dam 'c9points of damage!w2'
  3817. monhealth=monhealth-dam
  3818. mrating=mrating-scost
  3819. signal modeath
  3820.  
  3821. mlightning1:
  3822. if lightning=no then signal donthaveit1
  3823. scost=200
  3824. if scost>mrating then signal nomrating1
  3825. transmit 'c9You have cast a powerful cfLightning Bolt c9at' mon'w2'
  3826. dam=40*level
  3827. transmit 'n1c9You didcf' dam 'c9points of damage!w2'
  3828. monhealth=monhealth-dam
  3829. mrating=mrating-scost
  3830. signal modeath
  3831.  
  3832. mmissile1:
  3833. if missile=no then signal donthaveit1
  3834. scost=300
  3835. if scost>mrating then signal nomrating1
  3836. transmit 'c9You have cast a powerful cfMissile c9at' mon'w2'
  3837. dam=VRnd(50,60)*level
  3838. transmit 'n1c9You didcf' dam 'c9points of damage!w2'
  3839. monhealth=monhealth-dam
  3840. mrating=mrating-scost
  3841. signal modeath
  3842.  
  3843. mnuke1:
  3844. if nuke=no then signal donthaveit1
  3845. scost=700
  3846. if scost>mrating then signal nomrating1
  3847. transmit 'c9You have cast a cfNUKE c9at' mon'w2'
  3848. dam=VRnd(90,110)*level
  3849. transmit 'n1c9You didcf' dam 'c9points of damage!w2'
  3850. monhealth=monhealth-dam
  3851. mrating=mrating-scost
  3852. signal modeath
  3853.  
  3854. mdevastate1:
  3855. if devastate=no then signal donthaveit1
  3856. scost=1000
  3857. if cost>mrating then signal nomrating1
  3858. transmit 'c9You have devastated your enemy!w2'
  3859. monhealth=0
  3860. mrating=mrating-scost
  3861. signal modeath
  3862.  
  3863. nomrating1:
  3864. transmit 'n1c9You do not have enough MAGIC RATING to cast this spellw2'
  3865. signal magic30
  3866.  
  3867. donthaveit1:
  3868. transmit 'n1ceYou do not have this spell in your arsenol!!!w2'
  3869. signal magic30
  3870.  
  3871. nomagic1:
  3872. transmit 'n1cfYou do not possess the ability to use magic!!!w2'
  3873. signal battle1
  3874.  
  3875. battle2:
  3876. hit=thaco+monac
  3877. roll=VRnd(1,20)+1
  3878. if roll>hit then signal connect2
  3879. transmit 'cfn1Your attack missed the' mon'w2'
  3880. signal monaturn
  3881.  
  3882. connect2:
  3883. rd=VRnd(1,8)
  3884. if rd=1 then transmit 'n1c9You hit the poor' mon'w2'
  3885. if rd=2 then transmit 'n1c9Your' weapon 'connected with the' mon'w2'
  3886. if rd=3 then transmit 'n1c9You have hit the' mon 'with your dreaded' weapon'w2'
  3887. if rd=4 then transmit 'n1c9Your' weapon 'slices through the' mon 'with precisionw2'
  3888. if rd=5 then transmit 'n1c9You have damaged the' mon 'with your assaultw2'
  3889. if rd=6 then transmit 'n1c9Your attack nailed the' mon'w2'
  3890. if rd=7 then transmit 'n1c9You sure are good with a' weapon'. You hit the' mon'!w2'
  3891. if rd=8 then transmit 'n1c9Blood flies everywhere from your assault!'
  3892. monhealth=monhealth-damage
  3893. transmit 'cfYou didc9' damage 'cfpoints of damage to thec9' mon
  3894. signal modeath
  3895.  
  3896. monaturn:
  3897. transmit 'n1ce'mon 'is now returning the favorw2'
  3898. monhit=monthaco+ac
  3899. roll=VRnd(1,20)+1
  3900. if roll>monhit then signal connect3
  3901. transmit 'n1cfThey missed, howeverw2'
  3902. signal battle1
  3903.  
  3904. connect3:
  3905. rds=VRnd(1,4)
  3906. if rds=1 then transmit 'n1c9'mon 'has hit you with their' monweapon'w2'
  3907. if rds=2 then transmit 'n1c9You are hit!w2'
  3908. if rds=3 then transmit 'n1c9WOW! You were really sliced!w2'
  3909. if rds=4 then transmit 'n1c9OUCH!' mon' is really laying into you!w2'
  3910. health=health-mondam
  3911. signal yodeath
  3912.  
  3913. yodeath:
  3914. if health>1 then signal battle1
  3915. transmit 'c9YIKES!!! That last attack killed you!!w2'
  3916. health=0
  3917. transmit 'f1'
  3918. sendfile spath||'dead.ans'
  3919. transmit 'w1f1'
  3920. map=0
  3921. incity#=1
  3922. x=0
  3923. y=1
  3924. call savestats
  3925. call quit
  3926.  
  3927. modeath:
  3928. if monhealth>1 then signal monaturn
  3929. transmit 'c9Your assault has killed thecf' mon'w2'
  3930. experience=experience+monvalue
  3931. money2=monmoney*3
  3932. money=money+money2
  3933. transmit 'f1'
  3934. sendfile spath||'win.ans'
  3935. transmit 'w1f1'
  3936. signal levelup
  3937. signal done2
  3938.  
  3939. college:
  3940. transmit 'f1'
  3941. sendfile mmpath||'school.ans'
  3942. transmit 'n1ceYou have $cf'money 'ceto spend'
  3943. query 'n1cbChoose a course for studyca>>c9 '
  3944. col=upper(result);transmit col
  3945. if col=p then signal quit
  3946. if col='' then signal college
  3947. if col='Q' then signal main
  3948. if col='1' then col=mount
  3949. if col='2' then col=comp
  3950. if col='3' then col=hist
  3951. if col='4' then col=sales
  3952. if col='5' then col=gove
  3953. if col='6' then col=medi
  3954. if col='7' then col=relig
  3955. if col='8' then col=racestud
  3956. if col='9' then col=defend
  3957. if col='10' then col=assail
  3958. if col='11' then col=disguy
  3959. if col='12' then col=gambler
  3960. if exists(sspath||col)=1 then call skillbought1
  3961. signal college
  3962.  
  3963. skillbought1:
  3964. call open(1,sspath||col)
  3965. coltag=readln(1)
  3966. colcost=readln(1)
  3967. call close(1)
  3968. if money>colcost then signal skillbought2
  3969. transmit 'ceYou do not have the funds necessary to join this course!w2'
  3970. signal college
  3971.  
  3972. skillbought2:
  3973. transmit 'cdAce 'coltag 'cdcosts $ce'colcost
  3974. sendstring 'cbDo you wish to study this?c9 [No]ce '
  3975. getchar
  3976. cn=upper(result);transmit 'cb'cn
  3977. if cn=p then quit
  3978. if cn='Y' then signal skillbought3
  3979. transmit 'ceMake up your mind!w2'
  3980. signal college
  3981.  
  3982. skillbought3:
  3983. if col=mount then signal mount1
  3984. if col=comp then signal comp1
  3985. if col=hist then signal hist1
  3986. if col=sales then signal sales1
  3987. if col=gove then signal gove1
  3988. if col=medi then signal medi1
  3989. if col=relig then signal relig1
  3990. if col=racestud then signal racestud1
  3991. if col=defend then signal defend1
  3992. if col=assail then signal assail1
  3993. if col=disguy then signal disguy1
  3994. if col=gambler then signal gambler1
  3995.  
  3996. mount1:
  3997. if mountaineer>99 then signal toosmart
  3998. skl=Vrnd(35,60+mental)
  3999. mountaineer=mountaineer+skl
  4000. if mountaineer>100 then mountaineer=100
  4001. transmit 'caYou got acb' skl 'camaking your skill level:cb' mountaineer'w2'
  4002. money=money-colcost
  4003. call savestats
  4004. call college
  4005.  
  4006. hist1:
  4007. if historian>99 then signal toosmart
  4008. skl=Vrnd(35,60+mental)
  4009. historian=historian+skl
  4010. if historian>100 then historian=100
  4011. transmit 'caYou got acb' skl 'camaking your skill level:cb' historian'w2'
  4012. money=money-colcost
  4013. call savestats
  4014. call college
  4015.  
  4016. comp1:
  4017. if computers>99 then signal toosmart
  4018. skl=Vrnd(35,60+mental)
  4019. computers=computers+skl
  4020. if computers>100 then computers=100
  4021. transmit 'caYou got acb' skl 'camaking your skill level:cb' computers'w2'
  4022. money=money-colcost
  4023. call savestats
  4024. call college
  4025.  
  4026. sales1:
  4027. if salesman>99 then signal toosmart
  4028. skl=Vrnd(35,60+mental)
  4029. salesman=salesman+skl
  4030. if salesman>100 then salesman=100
  4031. transmit 'caYou got acb' skl 'camaking your skill level:cb' salesman'w2'
  4032. money=money-colcost
  4033. call savestats
  4034. call college
  4035.  
  4036. gove1:
  4037. if governments>99 then signal toosmart
  4038. skl=Vrnd(35,60+mental)
  4039. governments=governments+skl
  4040. if governments>100 then governments=100
  4041. transmit 'caYou got acb' skl 'camaking your skill level:cb' governments'w2'
  4042. money=money-colcost
  4043. call savestats
  4044. call college
  4045.  
  4046. medi1:
  4047. if medical>99 then signal toosmart
  4048. skl=Vrnd(35,60+mental)
  4049. medical=medical+skl
  4050. if medical>100 then medical=100
  4051. transmit 'caYou got acb' skl 'camaking your skill level:cb' medical'w2'
  4052. money=money-colcost
  4053. call savestats
  4054. call college
  4055.  
  4056. relig1:
  4057. if religion>99 then signal toosmart
  4058. skl=Vrnd(35,60+mental)
  4059. religion=religion+skl
  4060. if religion>100 then religion=100
  4061. transmit 'caYou got acb' skl 'camaking your skill level:cb' religion'w2'
  4062. money=money-colcost
  4063. call savestats
  4064. call college
  4065.  
  4066. racestud1:
  4067. if racestudy>99 then signal toosmart
  4068. skl=Vrnd(35,60+mental)
  4069. racestudy=racestudy+skl
  4070. if racestudy>100 then racestudy=100
  4071. transmit 'caYou got acb' skl 'camaking your skill level:cb' racestudy'w2'
  4072. money=money-colcost
  4073. call savestats
  4074. call college
  4075.  
  4076. assail1:
  4077. if assault>99 then signal toosmart
  4078. skl=Vrnd(35,60+mental)
  4079. assault=assault+skl
  4080. if assault>100 then assault=100
  4081. transmit 'caYou got acb' skl 'camaking your skill level:cb' assault'w2'
  4082. if skl<50 then thaco=thaco-2
  4083. if skl>49 then thaco=thaco-4
  4084. money=money-colcost
  4085. call savestats
  4086. call college
  4087.  
  4088. defend1:
  4089. if defense>99 then signal toosmart
  4090. skl=Vrnd(35,60+mental)
  4091. defense=defense+skl
  4092. if defense>100 then defense=100
  4093. transmit 'caYou got acb' skl 'camaking your skill level:cb' defense'w2'
  4094. money=money-colcost
  4095. if skl<50 then ac=ac+2
  4096. if skl>49 then ac=ac+4
  4097. call savestats
  4098. call college
  4099.  
  4100. disguy1:
  4101. if disguise>99 then signal toosmart
  4102. skl=Vrnd(35,60+mental)
  4103. disguise=disguise+skl
  4104. if disguise>100 then disguise=100
  4105. transmit 'caYou got acb' skl 'camaking your skill level:cb' disguise'w2'
  4106. money=money-colcost
  4107. call savestats
  4108. call college
  4109.  
  4110. gambler1:
  4111. if gambling>139 then signal toosmart
  4112. skl=Vrnd(35,60+mental)
  4113. gambling=gambling+skl
  4114. if gambling>140 then gambling=140
  4115. transmit 'caYou got acb' skl 'camaking your skill level:cb' gambling'w2'
  4116. money=money-colcost
  4117. call savestats
  4118. call college
  4119.  
  4120. toosmart:
  4121. transmit 'ceYour knowledge in this area is as high as we can get it!w2'
  4122. signal college
  4123.  
  4124. transporter:
  4125. if tpass=no then signal gohome
  4126. transmit 'f1ceAhh! I see you want to take the comfortable path!w2'
  4127. transmit 'n1cfUnfortunately, you must have visited your destination to transport there now.w2'
  4128. Transmit 'n1cfHere are your choices:'
  4129. transmit 'n1cb1. caKASAD VA AMORIA    :cf' city1
  4130. transmit 'cb2. caILLIUN TRIS LUXOON :cf' city2
  4131. transmit 'cb3. caBALLACK TUMBORJUN  :cf' city3
  4132. transmit 'cb4. caASADA IX NOJAMY    :cf' city4
  4133. transmit 'cb5. caDAYTOX HILKISDEN   :cf' city5
  4134. sendstring 'n1cdWhat will it be? '
  4135. getchar
  4136. dest=upper(result)
  4137. if dest=incity# then signal youarehere
  4138. if dest=p then signal quit
  4139. if dest='Q' then signal main
  4140. if dest='1' then signal kasad
  4141. if dest='2' then signal illiun
  4142. signal transporter
  4143.  
  4144. kasad:
  4145. transmit 'n1ccAfter a somewhat uneasy trip you reassemble in Kasad Va Amoria!w2'
  4146. incity#=1
  4147. x=0
  4148. y=1
  4149. signal main
  4150.  
  4151. illiun:
  4152. if city2=no then signal transporter
  4153. transmit 'n1ccAfter a really nightmarish transport ride you reassemble in Illiun Tris Luxoon!w2'
  4154. incity#=2
  4155. x=16
  4156. y=11
  4157. signal main
  4158.  
  4159. youarehere:
  4160. transmit 'n1c9You are already at this location!!!w2'
  4161. signal transporter
  4162.  
  4163. gohome:
  4164. transmit 'c9You do not have a transporter pass!! Go home!w2'
  4165. signal main
  4166.  
  4167.  
  4168. startmove:
  4169. if health<1 then signal oopsie
  4170. map=1
  4171. sendfile spath||'battle.ans'
  4172. transmit 'w2f1'
  4173. bufferflush
  4174. signal mapcall
  4175.  
  4176. oopsie:
  4177. transmit 'n1ceYou cannot enter the c9BATTLE LANDSce in your condition!!w2'
  4178. signal main
  4179.  
  4180. illout:
  4181. signal mapcall
  4182.  
  4183. mapcall:
  4184. if map=1 then signal map1
  4185. if map=2 then signal map2
  4186. if map=3 then signal map3
  4187. if map=4 then signal map4
  4188. if map=5 then signal map5
  4189. if map=6 then signal map6
  4190.  
  4191. Map1:
  4192. bufferflush
  4193. line1='^9^9^2│#│#####^^^^^^^^^^^::::::::+│+:::^^^^^^^^^^^^^^^^^^^^^^^^^^^ '
  4194. line2='#|#####^^^^^^^^^^^::::::::::::::::^^^^^^^^^^^^^^^^^^::::\^/^ '
  4195. line3='#|###^^^^^^^^^^#############|##***^^^^^^^::::::::::::::::::^ '
  4196. line4='#===========================|##****^^^^^^^^^^^^^^^^^^^:::::^ '
  4197. line5='##^^^^^^^^^^^^^#############|##******^^^^^^^***[=]^^^^^^###^ '
  4198. line6='::^^^^^^^^^^^###########****|***********************^^^^^### '
  4199. line7='::^^^^^^^^######^^^^^^^####*|########################^^^^### '
  4200. line8=':::^^^^^^:###^^^^~~~~^^^^^#*|***######################^^^### '
  4201. line9='::::^^^^^:#####^^~~~~~~~~^^^|^^**********##############^^^^# '
  4202. line10='::(*)^^^::::^^^^^~~~~~~~~^^^=============================|## '
  4203. line11='::::::^^:::::::│#│~~~~~~~^^ ********************#########|## '
  4204. line12=':::::::::::::^^^^^^^^^~~~~~~~~~~~~~~~~~~~~~***###########|** '
  4205. line13='######::::::::::::::^^^^^^^********#####*~~~~***####******** '
  4206. line14='^^^^######:::::::::::::##################**~~~****/+\******* '
  4207. line15='???^^^^#####:::::::::::::#################(*)~~~************ '
  4208. signal icon1
  4209.  
  4210. map2:
  4211. bufferflush
  4212. line1='^9^9^2//////////////////////////////////////                       '
  4213. line2='//}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}//                       '
  4214. line3='//////}}//////////////////////////}}//                       '
  4215. line4='//}}//}}//$///////}}}}}}}}}///////}}//                       '
  4216. line5='//}}//}}//////////}}}}}}}}}[]}}}}}}}//                       '
  4217. line6='//}}//}}//////////////////////////}}//                       '
  4218. line7='//}}//}}//////////}}}}////////////}}//                       '
  4219. line8='//}}//}}//////////}}}}////////////}}//                       '
  4220. line9='//}}//}}//}}}}}}}}}}}}}}}}}}}}}}}}}}//                       '
  4221. line10='//}}//}}//}}/////}}}}}////////////////                       '
  4222. line11='//}}//}}//}}/////}}}}}//////}}}}}}}X//                       '
  4223. line12='//}}//}}//}}()}}}}}}}}//////}}}}}}}}//                       '
  4224. line13='//}}}}}}//}}}}}}}}}}}}}}}}}}}}}}}}}}//                       '
  4225. line14='//////////////////////////////////////                       '
  4226. line15='//////////////////////////////////////                       '                                                                 
  4227. signal icon1
  4228.  
  4229. map2stuff:
  4230. bufferflush
  4231. location=Spelunking Around a cave!
  4232. if x=2 & y=2 then location='cc'An apparent exit from this hole!
  4233. if x=12 & y=12 then location='cb'A hole going nowhere!!! YET!
  4234. if x=34 & y=11 then signal keykey
  4235. if x=28 & y=5 then signal SteelDoor
  4236. if x>36 then x=36
  4237. if x<0 then x=0
  4238. if y<1 then y=1
  4239. if y>15 then y=15
  4240. if x=10 & y=4 then signal bigbucks
  4241. if x=2 & y=3 | x=32 & y=3 | x=30 & y=3 | x=28 & y=3 | x=4 & y=3 | x=8 & y=5 | x=8 & y=4 | x=8 & y=3 | x=10 & y=3 | x=12 & y=3 | x=14 & y=3 | x=16 & y=3 | x=18 & y=3 then signal bumpwall
  4242. if x=26 & y=3 | x=24 & y=3 | x=22 & y=3 | x=20 & y=3 | x=32 & y=4 | x=30 & y=4 | x=28 & y=4 | x=8 & y=6 | x=8 & y=7 | x=4 & y=3 | x=18 & y=6 | x=16 & y=4 | x=8 & y=13 then signal bumpwall
  4243. if x=4 & y=4 | x=4 & y=5 | x=4 & y=6 | x=4 & y=7 | x=4 & y=8 | x=4 & y=9 | x=4 & y=10 | x=4 & y=11 | x=4 & y=12 | x=8 & y=8 | x=8 & y=9 | x=8 & y=10 | x=8 & y=11 then signal bumpwall
  4244. if x=20 & y=6 | x=22 & y=6 | x=24 & y=6 | x=26 & y=6 | x=28 & y=6 | x=30 & y=6 | x=32 & y=6 | x=32 & y=7 | x=32 & y=8 | x=30 & y=8 | x=28 & y=8 | x=26 & y=8 | x=24 & y=8 then signal bumpwall
  4245. if x=22 & y=8 | x=22 & y=7 | x=16 & y=7 | x=16 & y=8 | x=14 & y=8 | x=12 & y=8 | x=10 & y=8 | x=8 & y=8 | x=22 & y=10 | x=24 & y=10 | x=26 & y=10 | x=28 & y=10 | x=30 & y=10 then signal bumpwall
  4246. if x=32 & y=10 | x=34 & y=10 | x=22 & y=11 | x=24 & y=12 | x=26 & y=12 | x=26 & y=11 | x=16 & y=10 | x=16 & y=11 | x=14 & y=10 | x=14 & y=11 then signal bumpwall
  4247. if y=1 then signal bumpwall
  4248. if x=36 then signal bumpwall
  4249. if y=14 then signal bumpwall
  4250. if x=0 then signal bumpwall
  4251. signal move
  4252.  
  4253. icon1:
  4254. if class=rogue then icon='z1cfRGq1'
  4255. if class=knight then icon='z1cfKNq1'
  4256. if class=mentalist then icon='z4cfMNq1'
  4257. if class=assassin then icon='z5cfASq1'
  4258. if class=arms expert then icon='z5cfEXq1'
  4259. if class=globalist then icon='z4cfGBq1'
  4260. signal xpos1
  4261.  
  4262. map1stuff:
  4263. bufferflush
  4264. location=roaming the battle lands
  4265. if x>59 then signal edgefall
  4266. if x<0 then signal edgefall
  4267. if y<1 then signal edgefall
  4268. if y>15 then signal edgefall
  4269. if x=0 & y=1 then location='cd'The City of Kasad Va Amoria
  4270. if x=16 & y=11 then location='ce'The City Of Illiun Tris Luxoon
  4271. if x=2 & y=10 then location='c3'A very dark cave
  4272. if x=0 & y=15 then location='c1'An odd alien craft
  4273. if x=28 & y=1 then location='ce'A Huge Castle
  4274. if x=56 & y=2 then location='cd'Ancient Ruins
  4275. if x=48 & y=5 then location='cf'A Secure military Base
  4276. if x=50 & y=14 then location='c6'An ancient Temple
  4277. if x=42 & y=15 then location='c7'A deep cave
  4278. if x=0 & y=14 | x=2 & y=14 | x=4 & y=15 then signal cantgo
  4279. if x=12 & y=13 | x=56 & y=1 | x=44 & y=4 then signal bigbucks
  4280. if x=8 & y=1 | x=18 & y=1 | x=32 & y=1 | x=7 & y=2 | x=16 & y=2 | x=34 & y=2 | x=40 & y=2 | x=42 & y=2 | x=44 & y=2 then signal cantgo2
  4281. if x=40 & y=3 | x=6 & y=3 | x=8 & y=3 | x=8 & y=3 | x=10 & y=3 | x=12 & y=3 | x=14 & y=3 then signal cantgo2
  4282. if x=10 & y=3 | x=8 & y=5 | x=46 & y=2 then location='ce'a mountain pass
  4283. if x=2 & y=5 | x=6 & y=2 | x=2 & y=6 | x=2 & y=7 | x=2 & y=8 | x=4 & y=9 | x=4 & y=10 | x=6 & y=11 | x=6 & y=10 | x=8 & y=9 then signal cantgo2
  4284. if x=8 & y=8 | x=8 & y=7 | x=10 & y=6 | x=10 & y=6 | x=12 & y=6 | x=12 & y=5 | x=4 & y=5 | x=6 & y=5 then signal cantgo2
  4285. if x=6 & y=5 | x=8 & y=5 | x=34 & y=3 | x=34 & y=4 | x=36 & y=4 | x=36 & y=5 | x=38 & y=5 | x=40 & y=5 | x=42 & y=5 then signal cantgo2
  4286. if x=40 & y=3 | x=44 & y=4 | x=46 & y=4 | x=48 & y=4 | x=60 & y=8 then signal cantgo2
  4287. if x=50 & y=5 | x=54 & y=6 | x=54 & y=7 | x=54 & y=8 | x=58 & y=9 | x=56 & y=9 then signal cantgo2
  4288. if x=56 & y=8 | x=56 & y=6 | x=56 & y=7 | x=54 & y=5 | x=52 & y=5 | x=60 & y=7 | x=60 & y=6 | x=58 & y=5 | x=58 & y=4 then signal cantgo2
  4289. if x=58 & y=3 | x=58 & y=2 | x=58 & y=1 | x=12 & y=8 | x=14 & y=8 | x=16 & y=7 | x=18 & y=7 then signal cantgo2
  4290. if x=20 & y=7 | x=22 & y=7 | x=22 & y=8 | x=24 & y=8 | x=26 & y=8 | x=26 & y=9 | x=26 & y=10 | x=26 & y=11 then signal cantgo2
  4291. if x=14 & y=9 | x=16 & y=10 | x=14 & y=10 | x=12 & y=10  | x=12 & y=12 | x=14 & y=12 | x=16 & y=12 then signal cantgo2
  4292. if x=16 & y=12 | x=18 & y=12 | x=20 & y=13 | x=22 & y=13 | x=24 & y=13 | x=26 & y=13 then signal cantgo2
  4293. if x=18 & y=11 | x=16 & y=10 | x=16 & y=9 | x=16 & y=8 | x=18 & y=8 | x=20 & y=8 | x=20 & y=9 | x=22 & y=9 then signal cantswim
  4294. if x=24 & y=9 | x=24 & y=10 | x=24 & y=11 | x=24 & y=12 | x=22 & y=12 | x=18 & y=11 | x=22 & y=11  | x=20 & y=11 then signal cantswim
  4295. if x=24 & y=12 | x=26 & y=12 | x=28 & y=12 | x=30 & y=12 | x=32 & y=12 | x=34 & y=12 then signal cantswim
  4296. if x=36 & y=12 | x=38 & y=12 | x=40 & y=12 | x=42 & y=12 | x=44 & y=13 then signal cantswim
  4297. if x=44 & y=14 | x=44 & y=15 | x=46 & y=15 | x=42 & y=14 | x=42 & y=13 | x=40 & y=13 then signal cantswim
  4298. signal move
  4299.  
  4300. MOVE:
  4301. sendstring ''line1 'ccHEALTH   :c9' health'n1'
  4302. sendstring ''line2 'ceAGILITY  :cf' agility'n1'
  4303. sendstring ''line3 'ceSTRENGTH :cf' strength'n1'
  4304. sendstring ''line4 'ceENDURANCE:cf' endurance'n1'
  4305. sendstring ''line5 'ceMENTAL   :cf' mental'n1'
  4306. sendstring ''line6 'caLEVEL    :cb' level'n1'
  4307. sendstring ''line7 'caAC :cb' ac'n1'
  4308. sendstring ''line8 'caCASH $cb'left(money' ',11)'n1'
  4309. sendstring ''line9 'n1'
  4310. sendstring ''line10 'n1'
  4311. sendstring ''line11 'c9Vcaiewn1'
  4312. sendstring ''line12 'c9Ccaampn1'
  4313. sendstring ''line13 'c9Ecantern1'
  4314. sendstring ''line14 'c9Hcaelp Menun1'   
  4315. sendstring ''line15 'c9Ucase An Itemn1'
  4316. sendstring 'c98c2=UP  c92c2=DOWN  c94c2=LEFT  c96c2=RIGHT  c9'weapon 'ce'armor ' n2ca'name'''s LOCATIONcb>>cf' location'z0                         q1n2ceWhat shall you do?z0                                                      q1<9<9<9<9<9<9 '
  4317. getchar
  4318. rsp=upper(result);transmit rsp
  4319. if rsp=p then signal quit
  4320. if rsp='Q' then signal camp
  4321. if rsp='2' then y=y+1
  4322. if rsp='4' then x=x-2
  4323. if rsp='6' then x=x+2
  4324. if rsp='8' then y=y-1
  4325. if rsp='C' then signal camp
  4326. if rsp='' then signal move
  4327. if rsp='E' then signal maplocal
  4328. if rsp='H' then signal helpwq
  4329. if rsp='U' then signal useit
  4330. if rsp='V' then signal viewchar
  4331. moves=moves+1
  4332. if moves=5 then signal monsterattack
  4333. signal mapcall
  4334.  
  4335. mapstuff:
  4336. if map=1 then signal map1stuff
  4337. if map=2 then signal map2stuff
  4338. if map=3 then signal map3stuff
  4339. if map=4 then signal map4stuff
  4340. if map=5 then signal map5stuff
  4341. if map=6 then signal map6stuff
  4342.  
  4343. useit:
  4344. transmit 'f1n2caSelect An Item To Use:'
  4345. transmit 'f1n1ceCombat Items:'
  4346. transmit 'cb1 cfMedical Kit   ceAVAILABLE:c9' medkit
  4347. transmit 'cb2 cfTeleport Belt ceAVAILABLE:c9' flagb
  4348. sendstring 'n1ccPlease select an Item c9# ccto usece>>> '
  4349. getchar
  4350. itu=upper(result)
  4351. if itu=p then signal quit
  4352. if itu='Q' then signal mapcall
  4353. if itu='' then signal useit
  4354. if itu='1' then signal medkit51q
  4355. if itu='2' then signal telep
  4356. signal useit
  4357.  
  4358. telep:
  4359. if flagb=no then signal notelep
  4360. transmit 'n1ceTeleporting to Kasad Va Amoriaw1'
  4361. map=0
  4362. x=0
  4363. y=1
  4364. incity#=1
  4365. signal main
  4366.  
  4367. notelep:
  4368. transmit 'n1cfYOU DO NOT HAVE A TELEPORT BELT!! SORRY!!w2'
  4369. signal useit
  4370.  
  4371. medkit51q:
  4372. if medkit=0 then signal noitem1
  4373. health=maxhealth
  4374. meduses=meduses-1
  4375. transmit 'n1ceYou are healed!w2'
  4376. if meduses=0 then signal medkit5a1
  4377. transmit 'f1'
  4378. signal mapcall
  4379.  
  4380. medkit5a1:
  4381. transmit 'n1ceThis medkit is empty now!w2'
  4382. medkit=medkit-1
  4383. if medkit>0 then meduses=3
  4384. transmit 'f1'
  4385. signal mapcall
  4386.  
  4387. noitem1:
  4388. transmit 'n1c9You do not have that item!w2'
  4389. signal useit
  4390.  
  4391. helpwq:
  4392. sendfile spath||'help.ans'
  4393. transmit 'g1f1'
  4394. signal move
  4395.  
  4396. maplocal:
  4397. if map=1 then signal maplocal1
  4398. if map=2 then signal maplocal2
  4399. if map=3 then signal maplocal3
  4400. if map=4 then signal maplocal4
  4401. if map=5 then signal maplocal5
  4402. if map=6 then signal maplocal6
  4403. signal move
  4404.  
  4405. maplocal1:
  4406. if x=48 & y=5 then signal miltar
  4407. if x=0 & y=1 then signal Kasad1
  4408. if x=16 & y=11 then signal illiun1
  4409. if x=2 & y=10 then signal cavedark
  4410. if x=28 & y=1 then signal castlebig
  4411. if x=0 & y=15 then signal alienship
  4412. if x=42 & y=15 then signal cavedeep
  4413. if x=50 & y=14 then signal templedo
  4414. if x=56 & y=2 then signal ruinsdo
  4415. transmit '>9>9^1cfThere is no place to enter!w1'
  4416. signal map1stuff
  4417.  
  4418. templedo:
  4419. transmit 'f1'
  4420. sendfile dpath||'temple'
  4421. transmit 'f1'
  4422. signal mapcall
  4423.  
  4424. ruinsdo:
  4425. transmit 'f1'
  4426. sendfile dpath||'ruins'
  4427. transmit 'f1'
  4428. signal mapcall
  4429.  
  4430. miltar:
  4431. transmit 'f1n1'
  4432. map=6
  4433. x=26
  4434. y=2
  4435. signal mapcall
  4436.  
  4437. cavedeep:
  4438. transmit 'f1n1'
  4439. map=5
  4440. x=2
  4441. y=2
  4442. signal mapcall
  4443.  
  4444. exits5:
  4445. transmit 'f1'
  4446. map=1
  4447. x=48
  4448. y=5
  4449. signal mapcall
  4450.  
  4451. exits4:
  4452. transmit 'f1'
  4453. map=1
  4454. x=42
  4455. y=15
  4456. signal mapcall
  4457.  
  4458. maplocal2:
  4459. if x=2 & y=2 then signal exits1
  4460. transmit '>9>9^1cfthere is no place to enter!w1'
  4461. signal map2stuff
  4462.  
  4463. maplocal3:
  4464. if x=26 & y=2 then signal exits2
  4465. transmit '>9>9^1cfThere is no place to enter!w1'
  4466. signal map3stuff
  4467.  
  4468. maplocal4:
  4469. if x=34 & y=14 then signal exits3
  4470. transmit '>9>9^1cfThere is no place to enter!w1'
  4471. signal map4stuff
  4472.  
  4473. maplocal5:
  4474. if x=2 & y=2 then signal exits4
  4475. transmit '>9>9^1cfThere is no place to exit!w1'
  4476. signal map5stuff
  4477.  
  4478. maplocal6:
  4479. if x=26 & y=2 then signal exits5
  4480. transmit '>9>9^1caThere is no place to exit!!w1'
  4481. signal map6stuff
  4482.  
  4483. castlebig:
  4484. if level<10 then signal toowimpy
  4485. transmit 'f1n1'
  4486. map=3
  4487. x=26
  4488. y=2
  4489. signal mapcall
  4490.  
  4491. toowimpy:
  4492. transmit 'f1n3ceIt will not be advisable to enter the Ancient Castle at your level!'
  4493. transmit 'ceCome back when you are levelcf 10ce or higher!!w3'
  4494. signal mapcall
  4495.  
  4496. alienship:
  4497. transmit 'f1'
  4498. map=4
  4499. x=34
  4500. y=14
  4501. sendfile dpath||'alien'
  4502. transmit 'f1n1'
  4503. signal mapcall
  4504.  
  4505. exits1:
  4506. transmit 'f1'
  4507. map=1
  4508. x=2
  4509. y=10
  4510. signal mapcall
  4511.  
  4512. exits2:
  4513. transmit 'f1'
  4514. map=1
  4515. y=1
  4516. x=28
  4517. signal mapcall
  4518.  
  4519. exits3:
  4520. transmit 'f1'
  4521. map=1
  4522. y=15
  4523. x=0
  4524. signal mapcall
  4525.  
  4526. cantgo:
  4527. if mountaineer>80 then signal okyouwentthere
  4528. transmit '>9>9^1c9You do not have the skill to climb these peeksw1'
  4529. if rsp='2' then y=y-1
  4530. if rsp='4' then x=x+2
  4531. if rsp='6' then x=x-2
  4532. if rsp='8' then y=y+1
  4533. signal mapcall
  4534.  
  4535. edgefall:
  4536. transmit '>9>9^1cfFalling off the edge could be fatal!!w1'
  4537. if rsp='2' then y=y-1
  4538. if rsp='4' then x=x+2
  4539. if rsp='6' then x=x-2
  4540. if rsp='8' then y=y+1
  4541. signal mapcall
  4542.  
  4543. bumpwall:
  4544. transmit '>9>9^1cbOUCH!!! That wasn''t fun at all!!!w1'
  4545. if rsp='2' then y=y-1
  4546. if rsp='4' then x=x+2
  4547. if rsp='6' then x=x-2
  4548. if rsp='8' then y=y+1
  4549. signal mapcall
  4550.  
  4551. bumpwall1:
  4552. transmit '>9>9^1caThat wall has been here for many millenia!!!w1'
  4553. if rsp='2' then y=y-1
  4554. if rsp='4' then x=x+2
  4555. if rsp='6' then x=x-2
  4556. if rsp='8' then y=y+1
  4557. signal mapcall
  4558.  
  4559. steeldoor:
  4560. if open=yes then signal move
  4561. if flage=yes then signal openit
  4562. if map=2 then transmit 'f1n2cfThere is a huge steel door here!!n1cfAnd you do not have the key!!'
  4563. if map=4 then transmit 'f1n2cfThere is an odd fungi covered alien door here!!n1And you do not have the key!'
  4564. if map=6 then transmit 'f1n2cfThere is a security door here and you do not have the passkey!!'
  4565. sendstring 'n1cFTry to open anyway??c9 [No] '
  4566. getchar
  4567. keya=upper(result)
  4568. attempts=0
  4569. if keya=p then signal quit
  4570. if keya='' then signal cantgetthrough
  4571. if keya='Y' then signal tryanyway
  4572. signal cantgetthrough
  4573.  
  4574. keykey:
  4575. transmit 'f1n4caThere is a small cbgoldenca key on the floorw1'
  4576. transmit 'n1Without hesitation you pick it up!!w2'
  4577. flage=yes
  4578. signal move
  4579.  
  4580. openit:
  4581. transmit '>9>9^1ceYour key fits the door and it opens!w2'
  4582. open=yes
  4583. signal move
  4584.  
  4585. tryanyway:
  4586. if attempts>1 then signal sorrycharlie
  4587. sendstring 'n1caWill you c9Pcaick the lock or c9Bcaust it down? '
  4588. getchar
  4589. ddd=upper(result)
  4590. if ddd=p then signal quit
  4591. if ddd='' then signal tryanyway
  4592. if ddd='P' then signal pickit
  4593. if ddd='B' then signal buster
  4594. signal tryanyway
  4595.  
  4596. pickit:
  4597. if class=rogue then signal okaypickit
  4598. transmit 'n1c9You are not a Rogue!w2'
  4599. signal tryanyway
  4600.  
  4601. buster:
  4602. transmit 'n1cfYou rare back and launch yourself at the barrier!w2'
  4603. bbb=VRnd(1,10)+strength
  4604. if bbb<27 then signal nowaysa
  4605. transmit 'n1ceYou blew through that barrier like a wrecking ball!w2'
  4606. open=yes
  4607. transmit 'f1'
  4608. signal move
  4609.  
  4610. nowaysa:
  4611. transmit 'cbYOUCH! That really hurt!! And it failed!!w2'
  4612. attempts=attempts+1
  4613. signal tryanyway
  4614.  
  4615. okaypickit:
  4616. transmit 'n1ceYou pull out your tools and dig into the lock!w2'
  4617. ppp=VRnd(1,10)+level
  4618. if ppp<8 then signal nowaybaby
  4619. transmit 'n1ceYou flick your wrist and the lock pops open!w2'
  4620. open=yes
  4621. transmit 'f1'
  4622. signal move
  4623.  
  4624. nowaybaby:
  4625. transmit 'n1cfWhat a weak attempt! You failed!w2'
  4626. attempts=attempts+1
  4627. signal tryanyway
  4628.  
  4629. sorrycharlie:
  4630. transmit 'c9n1Give it a rest! You''re not getting through without the key!w2'
  4631. signal cantgetthrough
  4632.  
  4633. cantgetthrough:
  4634. if rsp='2' then y=y-1
  4635. if rsp='4' then x=x+2
  4636. if rsp='6' then x=x-2
  4637. if rsp='8' then y=y+1
  4638. transmit 'f1'
  4639. signal mapcall
  4640.  
  4641. cantswim:
  4642. transmit '>9>9^1ccThat''s water & with all that armor you''d sink!w1'
  4643. if rsp='2' then y=y-1
  4644. if rsp='4' then x=x+2
  4645. if rsp='6' then x=x-2
  4646. if rsp='8' then y=y+1
  4647. signal mapcall
  4648.  
  4649. cantgo2:
  4650. if cboots=yes then signal okyouwentthere
  4651. if mountaineer>40 then signal okyouwentthere
  4652. transmit '>9>9^1c9You do not have the skill to climb these peeksw1'
  4653. if rsp='2' then y=y-1
  4654. if rsp='4' then x=x+2
  4655. if rsp='6' then x=x-2
  4656. if rsp='8' then y=y+1
  4657. signal mapcall
  4658.  
  4659. okyouwentthere:
  4660. transmit '>9>9^1cfYou are a champion Mountaineer!w1'
  4661. signal move
  4662.  
  4663. bigbucks:
  4664. if pickedup=yes then signal move
  4665. transmit 'f1n2cbHEY...someone hid some camoneycb here!!!'
  4666. sendstring 'n1cbDo you want to pick it up?? '
  4667. getchar
  4668. wll=result
  4669. if wll='Y' then signal okeedokee
  4670. if wll=p then signal quit
  4671. transmit 'caNO? Okay, it''s your lossw2!!'
  4672. pickedup=yes
  4673. signal move
  4674.  
  4675. okeedokee:
  4676. cashe=VRnd(2000,8000*level)
  4677. money=money+cashe
  4678. transmit 'caIt was $ca'cashe'ca!!!w2'
  4679. pickedup=yes
  4680. signal move
  4681.  
  4682. kasad1:
  4683. transmit 'f1'
  4684. sendfile spath||'kasad.ans'
  4685. transmit 'w2'
  4686. incity#=1
  4687. map=0
  4688. x=0
  4689. y=1
  4690. signal main
  4691.  
  4692. illiun1:
  4693. transmit 'f1'
  4694. sendfile spath||'illiun.ans'
  4695. transmit 'w2'
  4696. incity#=2
  4697. map=0
  4698. city2=yes
  4699. x=16
  4700. y=11
  4701. signal main
  4702.  
  4703. cavedark:
  4704. transmit 'f1n1'
  4705. map=2
  4706. y=2
  4707. x=2
  4708. signal mapcall
  4709.  
  4710. mapmove:
  4711. if y=1 then line1=line1''xpos
  4712. if y=2 then line2=line2''xpos
  4713. if y=3 then line3=line3''xpos
  4714. if y=4 then line4=line4''xpos
  4715. if y=5 then line5=line5''xpos
  4716. if y=6 then line6=line6''xpos
  4717. if y=7 then line7=line7''xpos
  4718. if y=8 then line8=line8''xpos
  4719. if y=9 then line9=line9''xpos
  4720. if y=10 then line10=line10''xpos
  4721. if y=11 then line11=line11''xpos
  4722. if y=12 then line12=line12''xpos
  4723. if y=13 then line13=line13''xpos
  4724. if y=14 then line14=line14''xpos
  4725. if y=15 then line15=line15''xpos
  4726. signal mapstuff
  4727.  
  4728. xpos1:
  4729. xpos=''icon
  4730. if x=0 then xpos='<9<9<9<9<9<9<7'icon'>9>9>9>9>9>9>5'
  4731. if x=2 then xpos='<9<9<9<9<9<9<5'icon'>9>9>9>9>9>9>3'
  4732. if x=4 then xpos='<9<9<9<9<9<9<3'icon'>9>9>9>9>9>9>1'
  4733. if x=6 then xpos='<9<9<9<9<9<9<1'icon'>9>9>9>9>9>8'
  4734. if x=8 then xpos='<9<9<9<9<9<8'icon'>9>9>9>9>9>6'
  4735. if x=10 then xpos='<9<9<9<9<9<6'icon'>9>9>9>9>9>4'
  4736. if x=12 then xpos='<9<9<9<9<9<4'icon'>9>9>9>9>9>2'
  4737. if x=14 then xpos='<9<9<9<9<9<2'icon'>9>9>9>9>9'
  4738. if x=16 then xpos='<9<9<9<9<9'icon'>9>9>9>9>7'
  4739. if x=18 then xpos='<9<9<9<9<7'icon'>9>9>9>9>5'
  4740. if x=20 then xpos='<9<9<9<9<5'icon'>9>9>9>9>3'
  4741. if x=22 then xpos='<9<9<9<9<3'icon'>9>9>9>9>1'
  4742. if x=24 then xpos='<9<9<9<9<1'icon'>9>9>9>8'
  4743. if x=26 then xpos='<9<9<9<8'icon'>9>9>9>6'
  4744. if x=28 then xpos='<9<9<9<6'icon'>9>9>9>4'
  4745. if x=30 then xpos='<9<9<9<4'icon'>9>9>9>2'
  4746. if x=32 then xpos='<9<9<9<2'icon'>9>9>9'
  4747. if x=34 then xpos='<9<9<9'icon'>9>9>7'
  4748. if x=36 then xpos='<9<9<7'icon'>9>9>5'
  4749. if x=38 then xpos='<9<9<5'icon'>9>9>3'
  4750. if x=40 then xpos='<9<9<3'icon'>9>9>1'
  4751. if x=42 then xpos='<9<9<1'icon'>9>8'
  4752. if x=44 then xpos='<9<8'icon'>9>6'
  4753. if x=46 then xpos='<9<6'icon'>9>4'
  4754. if x=48 then xpos='<9<4'icon'>9>2'
  4755. if x=50 then xpos='<9<2'icon'>9'
  4756. if x=52 then xpos='<9'icon'>7'
  4757. if x=54 then xpos='<7'icon'>5'
  4758. if x=56 then xpos='<5'icon'>3'
  4759. if x=58 then xpos='<3'icon'>1'
  4760. if x=60 then xpos='<1'icon
  4761. signal mapmove
  4762.  
  4763. map3:
  4764. line1='^9^9^2░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░     '
  4765. line2='░░::::::::::::::::::::::░░::░░::::::::::::::::::::::::░░     '
  4766. line3='░░::░░░░░░░░░░░░░░░░░░::░░::░░::░░░░░░░░░░░░░░░░░░░░::░░     '
  4767. line4='░░::░░::::::::::::::░░::░░::░░::░░::::::::::::::::░░::░░     '
  4768. line5='░░::░░::::::::::::::░░::░░::░░::[]::::::::::::::::░░::░░     '
  4769. line6='░░::░░::::::::::::::░░::░░::░░::░░::::::::::::::::░░::░░     '
  4770. line7='░░::░░::::::::::::::░░::░░::░░░░░░░░░░░░░░░░░░░░──░░::░░     '
  4771. line8='░░::░░::░░[]░░░░░░░░░░::░░::::::::::::::::::::░░┴┴░░::░░     '
  4772. line9='░░::░░::░░::░░::::::::::░░::░░░░░░░░░░░░░░░░[]░░░░░░::░░     '
  4773. line10='░░::░░::░░::░░::░░░░░░░░░░::░░::::::::::::::::::::░░::░░     '
  4774. line11='░░::░░::░░::░░::░░$$::::░░::░░::::::::::::::::::::░░::░░     '
  4775. line12='░░::░░/\░░::░░::░░::::::░░::░░o╖::::::::::::::::::░░::░░     '
  4776. line13='░░::░░░░░░::░░::░░░░░░░░░░::░░░░░░░░░░░░░░░░░░░░░░░░::░░     '
  4777. line14='░░::::::::::░░::::::::::::::::::::::::::::::::::::::::░░     '
  4778. line15='░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░     '
  4779. signal icon1
  4780.  
  4781. map4:
  4782. line1='^9^9^2╓╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╥╖   '
  4783. line2='╟╢......................................................╟╢   '
  4784. line3='╟╢:::::::::::::::::::::::::::::::::::::::::::::::::::::.╟╢   '
  4785. line4='╟╢::....................................................╟╢   '
  4786. line5='╟╢::╟╢╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╫╢   '
  4787. line6='╟╢::╟╢.:::::::::::::::::::::::::::::::::::::::::::::::::╟╢   '
  4788. line7='╟╢::░░░░░░░░░░░░░░░░░░░░░░░░░░::::::::::::::╟╢{}╟╢::::::╟╢   '
  4789. line8='╟╢::░░░░░░░░░░░░░░░░░░░░░░░░░░::::::::::::::╟╢::╟╢::::::╟╢   '
  4790. line9='╟╢::░░░░░░░░░░░░░░░░░░░░░░░░░░{}╓╥╥╥╥╥╥╥╥╥╥╥╨╜::╟╢::::::╟╢   '
  4791. line10='╟╢::░░░░░░░░░░░^vv^░░░░░░░░░░░::╟╢::::{}::╟╢::::╟╢::::::╟╢   '
  4792. line11='╟╢::░░░░░░░░░░░░░░░░░░░░░░░░░░::╟╢::::╟╢::::::::╟╢::::::╟╢   '
  4793. line12='╟╢::░░░░░░░░░░░░░░░░░░░░░░░░░░::╟╢::╓╥╨╨╥╥╥╖::::╟╢::::::╟╢   '
  4794. line13='╟╢::░░░░░░░░░░░░░░░░░░░░░░░░░░::╟╢::╟╢::╟╢::::╟╢╟╢╫╫╫╫╫╫╟╢   '
  4795. line14='╟╢::::::::::::::::::::::::::::::╟╢::╟╢::::::╟╢╟╢╟╢::::KN╟╢   '
  4796. line15='╙╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╜╙╜╙╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╨╜   '
  4797. signal icon1
  4798.  
  4799. map4stuff:
  4800. bufferflush
  4801. location='cd'An Eery Feeling Alien Transport Pod
  4802. if x=34 & y=14 then location='c9'THE HOLE LEADING TO SAFETY
  4803. if x<2 then signal bumpwall3
  4804. if x>55 then signal bumpwall3
  4805. if y<3 then signal pods
  4806. if y>14 then signal bumpwall3
  4807. if x=32 & y=14 | x=36 & y=14 | x=44 & y=14 | x=46 & y=13 | x=48 & y=14 | x=48 & y=13 | x=36 & y=13 | x=32 & y=13 | x=32 & y=12 | x=40 & y=13 then signal bumpwall3
  4808. if x=32 & y=11 | x=36 & y=12 | x=36 & y=12 | x=38 & y=12 | x=40 & y=12 | x=42 & y=12 | x=48 & y=12 | x=48 & y=11 | x=38 & y=11 | x=32 & y=10 then signal bumpwall3
  4809. if x=32 & y=9 | x=34 & y=9 | x=36 & y=9 | x=38 & y=9 | x=40 & y=9 | x=42 & y=9 | x=44 & y=9 | x=42 & y=10  then signal bumpwall3
  4810. if x=44 & y=8 | x=48 & y=8 | x=44 & y=7 | x=48 & y=7 | x=4 & y=6 | x=4 & y=5 | x=6 & y=5 | x=8 & y=5 | x=10 & y=5 | x=12 & y=5 then signal bumpwall3
  4811. if x=14 & y=5 | x=16 & y=5 | x=18 & y=5 | x=20 & y=5 | x=22 & y=5 | x=24 & y=5 | x=26 & y=5 | x=28 & y=5 | x=30 & y=5 | x=32 & y=5 then signal bumpwall3
  4812. if x=34 & y=5 | x=36 & y=5 | x=38 & y=5 | x=40 & y=5 | x=42 & y=5 | x=44 & y=5 | x=46 & y=5 | x=48 & y=5 | x=50 & y=5 | x=52 & y=5 | x=54 & y=5 then signal bumpwall3
  4813. if x=30 & y=9 | x=38 & y=10 | x=46 & y=7 then signal steeldoor
  4814. if x=4 & y=7 | x=6 & y=7 | x=8 & y=7 | x=10 & y=7 | x=12 & y=7 | x=14 & y=7 | x=16 & y=7 | x=18 & y=7 | x=20 & y=7 | x=22 & y=7 then signal deephole
  4815. if x=24 & y=7 | x=26 & y=7 | x=28 & y=7 | x=28 & y=8 | x=28 & y=9 | x=28 & y=10 | x=28 & y=11 | x=28 & y=12 | x=28 & y=13 | x=26 & y=13 then signal deephole
  4816. if x=24 & y=13 | x=22 & y=13 | x=20 & y=13 | x=18 & y=13 | x=16 & y=13 | x=14 & y=13 | x=12 & y=13 | x=10 & y=13 | x=8 & y=13 | x=6 & y=13 then signal deephole
  4817. if x=4 & y=13 | x=4 & y=12 | x=4 & y=11 | x=4 & y=10 | x=4 & y=9 | x=4 & y=8 then signal deephole
  4818. if x=14 & y=4 | x=16 & y=4 | x=18 & y=4 | x=20 & y=4 | x=22 & y=4 | x=24 & y=4 | x=26 & y=4 | x=28 & y=4 | x=30 & y=4 | x=32 & y=4 then signal pods
  4819. if x=4 & y=4 | x=6 & y=4 | x=8 & y=4 | x=10 & y=4 | x=12 & y=4 | x=34 & y=4 | x=36 & y=4 | x=38 & y=4 | x=40 & y=4 | x=42 & y=4 then signal pods
  4820. if x=44 & y=4 | x=46 & y=4 | x=48 & y=4 | x=50 & y=4 | x=52 & y=4 | x=54 & y=4 then signal pods
  4821. if x=54 & y=14 then signal deadknight
  4822. if x=54 & y=3 then signal udrella
  4823. signal move
  4824.  
  4825. udrella:
  4826. transmit 'f1cdThere is a very small ball of light floating in mid air!!!w1'
  4827. transmit 'ccToo bad it explodes into a massive monster & attacks!!w1'
  4828. location=A very bad spot for you!!!
  4829. local=alienship
  4830. mon=Udrellum
  4831. signal loadmonster1
  4832.  
  4833. deadknight:
  4834. if key4=yes then signal move
  4835. transmit 'f1n4ceThere is a dead knight laying in the floor here!'
  4836. transmit 'ceHe looks to have been dead for about 6 months or so'
  4837. transmit 'cejudging from the fungus on him. Looking through his'
  4838. transmit 'cegear you find a chrome colored key...you keep it!!w5'
  4839. key4=yes
  4840. signal move
  4841.  
  4842. deephole:
  4843. transmit 'f1n2ceThere is a deep hole here going into an eery darkness! Falling would be fatal!w2' 
  4844. if rsp='2' then y=y-1
  4845. if rsp='4' then x=x+2
  4846. if rsp='6' then x=x-2
  4847. if rsp='8' then y=y+1
  4848. signal mapcall
  4849.  
  4850. pods:
  4851. transmit 'f1n2caSome odd looking pods filled with little glowing balls of light??w2'
  4852. if rsp='2' then y=y-1
  4853. if rsp='4' then x=x+2
  4854. if rsp='6' then x=x-2
  4855. if rsp='8' then y=y+1
  4856. signal mapcall
  4857.  
  4858. bumpwall3:
  4859. transmit '>9>9^1c9THAT WALL IS TOO SLIMY TO TOUCH!!w1'
  4860. if map=3 then transmit 'f1n2cfRunning from the Guardian Gets You Nothing!!w1'
  4861. if rsp='2' then y=y-1
  4862. if rsp='4' then x=x+2
  4863. if rsp='6' then x=x-2
  4864. if rsp='8' then y=y+1
  4865. signal mapcall
  4866.  
  4867. map3stuff:
  4868. bufferflush
  4869. location=An Ancient Drafty Castle
  4870. if x=26 & y=2 then location='cf'The Gates To The Battle Lands
  4871. if y<2 then signal bumpwall1
  4872. if x=0 then signal bumpwall1
  4873. if x>52 then signal bumpwall1
  4874. if y=15 then signal bumpwall1 
  4875. if x=24 & y=2 | x=28 & y=2 | x=4 & y=3 | x=6 & y=3 | x=8 & y=3 | x=10 & y=3 | x=12 & y=3 | x=14 & y=3 | x=16 & y=3 then signal bumpwall1
  4876. if x=18 & y=3 | x=20 & y=3 | x=20 & y=3 | x=24 & y=3 | x=28 & y=3 | x=32 & y=3 | x=34 & y=3 | x=36 & y=3 | x=38 & y=3 then signal bumpwall1
  4877. if x=40 & y=3 | x=42 & y=3 | x=44 & y=3 | x=46 & y=3 | x=48 & y=3 | x=50 & y=3 | x=4 & y=4 | x=20 & y=4 | x=24 & y=4 then signal bumpwall1
  4878. if x=28 & y=4 | x=50 & y=4 | x=4 & y=5 | x=20 & y=5 | x=24 & y=5 | x=28 & y=5 | x=50 & y=5 | x=4 & y=6 then signal bumpwall1
  4879. if x=20 & y=6 | x=24 & y=6 | x=28 & y=6 | x=32 & y=6 | x=50 & y=6 | x=4 & y=7 | x=20 & y=7 | x=24 & y=7 | x=28 & y=7 then signal bumpwall1
  4880. if x=30 & y=7 | x=32 & y=7 | x=34 & y=7 | x=36 & y=7 | x=38 & y=7 | x=40 & y=7 | x=42 & y=7 | x=44 & y=7 | x=46 & y=7 then signal bumpwall1
  4881. if x=50 & y=7 | x=4 & y=8 | x=8 & y=8 | x=12 & y=8 | x=14 & y=8 | x=16 & y=8 | x=18 & y=8 | x=20 & y=8 | x=24 & y=8 then signal bumpwall1
  4882. if x=46 & y=8 | x=50 & y=8 | x=4 & y=9 | x=8 & y=9 | x=24 & y=9 | x=12 & y=9 | x=28 & y=9 | x=30 & y=9 | x=32 & y=9 then signal bumpwall1
  4883. if x=34 & y=9 | x=36 & y=9 | x=38 & y=9 | x=40 & y=9 | x=42 & y=9 | x=46 & y=9 | x=48 & y=9 | x=50 & y=9 | x=4 & y=10 then signal bumpwall1
  4884. if x=8 & y=10 | x=12 & y=10 | x=16 & y=10 | x=18 & y=10 | x=20 & y=10 | x=22 & y=10 | x=24 & y=10 | x=50 & y=10 then signal bumpwall1
  4885. if x=4 & y=11 | x=8 & y=11 | x=12 & y=11 | x=16 & y=11 | x=24 & y=11 | x=28 & y=11 | x=50 & y=11 | x=4 & y=11 | x=8 & y=11 then signal bumpwall1
  4886. if x=12 & y=12 | x=16 & y=12 | x=24 & y=12 | x=50 & y=12 | x=4 & y=13 | x=6 & y=13 | x=8 & y=13 | x=12 & y=13 | x=16 & y=13 then signal bumpwall1
  4887. if x=18 & y=13 | x=20 & y=13 | x=22 & y=13 | x=24 & y=13 | x=28 & y=13 | x=30 & y=13 | x=32 & y=13 | x=34 & y=13 | x=36 & y=13 then signal bumpwall1
  4888. if x=38 & y=13 | x=40 & y=13 | x=42 & y=13 | x=44 & y=13 | x=46 & y=13 | x=48 & y=13 | x=50 & y=13 | x=12 & y=14 then signal bumpwall1
  4889. if x=10 & y=8 | x=44 & y=9 | x=32 & y=5 then signal passcard
  4890. if x=18 & y=11 then signal vaultmoney
  4891. if x=6 & y=12 then signal teleport
  4892. if x=22 & y=12 then signal teleport1
  4893. if x=30 & y=12 then signal keycard
  4894. if x=48 & y=7 then signal gateguardian
  4895. if x=48 & y=8 then signal gateopen
  4896. signal move
  4897.  
  4898. teleport:
  4899. transmit '>9>9^1cfSuddenly you teleport elsewhere!w1'
  4900. y=11
  4901. x=22
  4902. signal mapcall
  4903.  
  4904. teleport1:
  4905. transmit '>9>9^1cfSuddenly you teleport elsewhere!w1'
  4906. y=11
  4907. x=6
  4908. signal mapcall
  4909.  
  4910. gateopen:
  4911. if key5=yes then signal gateopen1
  4912. transmit 'f1n2s1cfYou cannot open the gate without the Zone Key!s0w2'
  4913. transmit 'f1'
  4914. x=48
  4915. y=6
  4916. signal mapcall
  4917.  
  4918. gateopen1:
  4919. local=finished
  4920. complete=yes
  4921. sendfile dpath||'end'
  4922. transmit 'f1'
  4923. signal hiphiphurray
  4924.  
  4925. hiphiphurray:
  4926. transmit 'f1cen1Since you have defeated the cfunregistered c9Battle Lands'
  4927. transmit 'n1ceyou must start your character over if you wish to play this'
  4928. transmit 'n1version again. When cdBook II ceis released you may take this'
  4929. transmit 'n1character into that game but this one will not play in Book 1 again!w5'
  4930. signal quit 
  4931.  
  4932. gateguardian:
  4933. if key5=yes then signal entergate
  4934. transmit 'f1cdThe demon before you seems to be wanting a key!!!w2'
  4935. transmit 'ccToo bad you don''t have it!! He attacks!!w2'
  4936. location=The Gate To The Radiation Zone
  4937. local=gate
  4938. mon=Gate Guardian
  4939. signal loadmonster1
  4940.  
  4941. entergate:
  4942. transmit 'f1'
  4943. sendfile dpath||'gate'
  4944. transmit 'f1'
  4945. signal move
  4946.  
  4947. keycard:
  4948. if key5=yes then signal move
  4949. transmit 'f1n5c9                   YOU HAVE LOCATED THE ZONE KEY!!!!w3'
  4950. transmit 'f1n5cf    YOU TAKE A QUICK LOOK AROUND AND THEN YOU SNATCH IT UP AND LEAVE!!!w3'
  4951. key5=yes
  4952. signal move
  4953.  
  4954. Vaultmoney:
  4955. if flagc=yes then signal move
  4956. transmit 'f1n2caCHUH CHING!!!! This vault has 40 million bucks in it!w2'
  4957. money=money+40000000
  4958. flagc=yes
  4959. signal move
  4960.  
  4961. passcard:
  4962. if key4=no then signal youneedthekey
  4963. transmit 'f1n4cas1You slip the chrome key into the slot and the door opens!!s0w3'
  4964. signal move
  4965.  
  4966. youneedthekey:
  4967. transmit 'f1s1n5ceEven though the rest of this castle seems ancient...s0w3'
  4968. transmit 'f1s1n5ceThis door is so high tech that nothing short of the key will open its0w3'
  4969. if rsp='2' then y=y-1
  4970. if rsp='4' then x=x+2
  4971. if rsp='6' then x=x-2
  4972. if rsp='8' then y=y+1
  4973. signal mapcall
  4974.  
  4975. map5:
  4976. bufferflush
  4977. line1='^9^9^2░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░           '
  4978. line2='░░}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}░░           '
  4979. line3='░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░}}░░           '
  4980. line4='░░\/░░}}}}}}░░}}}}}}░░}}}}}}░░}}}}}}░░}}}}}}░░}}░░           '
  4981. line5='░░}}░░}}░░}}░░}}░░}}░░}}░░}}░░}}░░}}░░}}░░}}░░}}░░           '
  4982. line6='░░}}░░}}░░}}░░}}░░}}░░}}░░}}░░}}░░}}░░}}░░}}░░}}░░           '
  4983. line7='░░}}}}}}░░}}}}}}░░}}}}}}░░}}}}}}░░}}}}}}░░}}░░}}░░           '
  4984. line8='░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░/\}}░░}}░░           '
  4985. line9='░░}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}░░░░░░░░}}░░           '
  4986. line10='░░}}░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░}}░░}}}}}}}}░░           '
  4987. line11='░░}}░░}}}}}}}}}}}}}}}}}}}}}}}}}}}}░░}}░░}}░░░░░░░░           '
  4988. line12='░░}}░░/\}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}░░}}░░}}MN░░           '
  4989. line13='░░}}░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░}}░░}}}}░░           '
  4990. line14='░░}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}░░$$}}░░           '
  4991. line15='░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░           '
  4992. signal icon1
  4993.  
  4994. map5stuff:
  4995. location='c8'In a Deep Dark Cave
  4996. if x=2 & y=2 then location='cf'A Possible Escape Route
  4997. if y<2 then signal bumpwall
  4998. if x<2 then signal bumpwall
  4999. if y>14 then signal bumpwall
  5000. if x>47 then signal bumpwall 
  5001. if x=2 & y=3 | x=4 & y=3 | x=6 & y=3 | x=8 & y=3 | x=10 & y=3 | x=12 & y=3 | x=14 & y=3 | x=16 & y=3 | x=18 & y=3 | x=20 & y=3 | x=44 & y=3 then signal bumpwall
  5002. if x=22 & y=3 | x=24 & y=3 | x=26 & y=3 | x=28 & y=3 | x=30 & y=3 | x=32 & y=3 | x=34 & y=3 | x=36 & y=3 | x=38 & y=3 | x=40 & y=3 | x=42 & y=3 then signal bumpwall
  5003. if x=44 & y=4 | x=28 & y=4 | x=20 & y=4 | x=16 & y=5 | x=12 & y=4 | x=8 & y=5 | x=4 & y=4 | x=4 & y=5 | x=12 & y=5 | x=16 & y=5 then signal bumpwall
  5004. if x=20 & y=5 | x=24 & y=5 | x=28 & y=5 | x=32 & y=5 | x=36 & y=5 | x=44 & y=5 | x=40 & y=5 | x=44 & y=6 | x=40 & y=6 | x=36 & y=6 | x=32 & y=6 then signal bumpwall
  5005. if x=28 & y=6 | x=24 & y=6 | x=20 & y=6 | x=16 & y=6 | x=12 & y=6 | x=8 & y=6 | x=4 & y=6 | x=8 & y=7 | x=16 & y=7 | x=24 & y=7 | x=32 & y=7 then signal bumpwall
  5006. if x=40 & y=7 | x=44 & y=7 | x=44 & y=8 | x=38 & y=8 | x=36 & y=8 | x=34 & y=8 | x=32 & y=8 | x=30 & y=8 | x=28 & y=8 | x=26 & y=8 | x=24 & y=8 then signal bumpwall
  5007. if x=22 & y=8 | x=20 & y=8 | x=18 & y=8 | x=16 & y=8 | x=14 & y=8 | x=12 & y=8 | x=10 & y=8 | x=8 & y=8 | x=6 & y=8 | x=4 & y=8 | x=2 & y=8 then signal bumpwall
  5008. if x=38 & y=9 | x=40 & y=9 | x=42 & y=9 | x=44 & y=9 | x=38 & y=10 | x=34 & y=10 | x=32 & y=10 | x=30 & y=10 | x=28 & y=10 | x=26 & y=10 | x=24 & y=10 then signal bumpwall
  5009. if x=22 & y=10 | x=20 & y=10 | x=18 & y=10 | x=16 & y=10 | x=14 & y=10 | x=12 & y=10 | x=10 & y=10 | x=8 & y=10 | x=6 & y=10 | x=4 & y=10 | x=4 & y=11 then signal bumpwall
  5010. if x=34 & y=11 | x=38 & y=11 | x=42 & y=11 | x=44 & y=11 | x=46 & y=11 | x=42 & y=12 | x=38 & y=12 | x=4 & y=12 | x=4 & y=13 | x=6 & y=13 | x=8 & y=13 then signal bumpwall
  5011. if x=10 & y=13 | x=12 & y=13 | x=14 & y=13 | x=16 & y=13 | x=18 & y=13 | x=20 & y=13 | x=22 & y=13 | x=24 & y=13 | x=26 & y=13 | x=28 & y=13 | x=30 & y=13 then signal bumpwall
  5012. if x=32 & y=13 | x=34 & y=13 | x=36 & y=13 | x=38 & y=13 | x=42 & y=13 | x=42 & y=14 then signal bumpwall
  5013. if x=6 & y=12 then signal gowee1
  5014. if x=40 & y=8 then signal gowee2
  5015. if x=44 & y=14 then signal fastcash
  5016. if x=46 & y=12 then signal wizard
  5017. signal move
  5018.  
  5019. wizard:
  5020. if flagb=yes then signal move
  5021. sendfile dpath||'Wizard'
  5022. transmit 'f1'
  5023. flagb=yes
  5024. signal move
  5025.  
  5026. fastcash:
  5027. if gotcash=yes then signal move
  5028. transmit 'f1n1cbThis looks like someone''s life savings!!! It''s a million bucks!w3'
  5029. money=money+1000000
  5030. gotcash=yes
  5031. transmit 'f1'
  5032. signal move
  5033.  
  5034. gowee1:
  5035. transmit 'f1n3ceYou step into a wild electronic field and are suddenly teleported!w2'
  5036. x=2
  5037. y=4
  5038. signal mapcall
  5039.  
  5040. gowee2:
  5041. transmit 'f1n3ccThis ride is little bumpier than the last but again you teleport!w2'
  5042. x=44
  5043. y=12
  5044. signal mapcall
  5045.  
  5046. map6:
  5047. bufferflush
  5048. line1='^9^9^2▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓ '
  5049. line2='▓▓::::::::░░::::[]::::::░░::░░::::::::░░::::::::::::::::::▓▓ '
  5050. line3='▓▓::::::::░░::░░░░::::::░░::░░::::::::░░::::::::::::::::::▓▓ '
  5051. line4='▓▓::::::::░░::░░::::::::░░::░░░░[]░░░░░░░░░░[]░░░░░░░░░░░░▓▓ '
  5052. line5='▓▓[]░░░░░░░░::░░::::::::░░::::::::::::::::::::::::::::::::▓▓ '
  5053. line6='▓▓::::::::::::░░::::::::░░::░░░░[]░░░░░░░░░░[]░░░░░░░░░░░░▓▓ '
  5054. line7='▓▓░░░░░░░░░░░░░░░░░░░░░░░░::░░::::::::░░::::::::::::::::::▓▓ '
  5055. line8='▓▓::::::::::::::::::::::::::░░::::::::░░::::::::::::::::::▓▓ '
  5056. line9='▓▓::░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓ '
  5057. line10='▓▓::░░::::::::::::::::::::::::::::::::::::::::::::::::::::▓▓ '
  5058. line11='▓▓::░░::::::::::::::::::::::::::::::::::::::::::::::::::::▓▓ '
  5059. line12='▓▓::░░::::::::::::::::::::::::::::::::::::::::::::::::::::▓▓ '
  5060. line13='▓▓::░░::::::::::::::::::::::::::::::::::::::::::::::::::::▓▓ '
  5061. line14='▓▓::[]::::::::::::::::::::::::::::::::::::::::::::::::::::▓▓ '
  5062. line15='▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓ '
  5063. signal icon1
  5064.  
  5065. map6stuff:
  5066. location=Sneaking Around A Military Base
  5067. if y<2 then signal bumpwall
  5068. if x<2 then signal bumpwall
  5069. if x>56 then signal bumpwall
  5070. if y>14 then signal bumpwall
  5071. if x=26 & y=2 then location=The Empty Check Point
  5072. if x=10 & y=2 | x=24 & y=2 | x=28 & y=2 | x=38 & y=2 | x=10 & y=3 | x=14 & y=3 | x=16 & y=3 | x=24 & y=3 | x=28 & y=3 | x=38 & y=3 then signal bumpwall
  5073. if x=10 & y=4 | x=14 & y=4 | x=24 & y=4 | x=28 & y=4 | x=30 & y=4 | x=34 & y=4 | x=36 & y=4 | x=38 & y=4 | x=40 & y=4 | x=42 & y=4 then signal bumpwall
  5074. if x=46 & y=4 | x=48 & y=4 | x=50 & y=4 | x=52 & y=4 | x=54 & y=4 | x=56 & y=4 | x=58 & y=4 | x=4 & y=5 | x=6 & y=5 | x=8 & y=5 then signal bumpwall
  5075. if x=10 & y=5 | x=24 & y=5 | x=14 & y=6 | x=14 & y=5 | x=24 & y=6 | x=28 & y=6 | x=30 & y=6 | x=34 & y=6 | x=36 & y=6 | x=38 & y=6 then signal bumpwall
  5076. if x=40 & y=6 | x=42 & y=6 | x=48 & y=6 | x=50 & y=6 | x=52 & y=6 | x=54 & y=6 | x=56 & y=6 | x=58 & y=6 | x=44 & y=6 | x=2 & y=7 then signal bumpwall
  5077. if x=4 & y=7 | x=6 & y=7 | x=8 & y=7 | x=10 & y=7 | x=12 & y=7 | x=14 & y=7 | x=16 & y=7 | x=18 & y=7 | x=22 & y=7 | x=24 & y=7 then signal bumpwall
  5078. if x=28 & y=7 | x=38 & y=7 | x=28 & y=8 | x=38 & y=8 | x=4 & y=9 | x=6 & y=9 | x=8 & y=9 | x=10 & y=9 | x=12 & y=9 | x=14 & y=9 then signal bumpwall
  5079. if x=16 & y=9 | x=18 & y=9 | x=20 & y=9 | x=22 & y=9 | x=24 & y=9 | x=26 & y=9 | x=28 & y=9 | x=30 & y=9 | x=32 & y=9 | x=34 & y=9 then signal bumpwall
  5080. if x=36 & y=9 | x=38 & y=9 | x=40 & y=9 | x=42 & y=9 | x=44 & y=9 | x=46 & y=9 | x=48 & y=9 | x=50 & y=9 | x=52 & y=9 | x=54 & y=9 then signal bumpwall
  5081. if x=56 & y=9 | x=4 & y=10 | x=4 & y=11 | x=4 & y=12 | x=4 & y=13 then signal bumpwall
  5082. if x=4 & y=14 | x=2 & y=5 | x=16 & y=2 | x=32 & y=4 | x=32 & y=6 | x=44 & y=4 | x=44 & y=6 then signal steeldoor
  5083. if x=6 & y=14 then location=Hangar Filled With Old Junk
  5084. if x=32 & y=3 | x=32 & y=7 | x=44 & y=3 | x=44 & y=7 then location=Abandonned Office
  5085. if x=2 & y=2 then signal neweapon
  5086. signal move
  5087.  
  5088. neweapon:
  5089. transmit 'f1n2ceYou find a crate and your curiosity causes you to open it'
  5090. transmit 'revealing a much better weapon than the one you have!! You get it!!w3f1'
  5091. weapon=Battle Phaser
  5092. weapondam=weapondam+200
  5093. damage=weapondam+strdam
  5094. signal move
  5095.  
  5096. run1:
  5097. transmit 'n2ceYou show you are a coward and run from the arena...w2'
  5098. if map>0 then signal mapcall
  5099. if local=gate then signal bumpwall3
  5100. signal main
  5101.  
  5102. run2:
  5103. transmit 'n2ceYou show you are a coward and run from the fight...w2'
  5104. if local=gate then signal bumpwall3
  5105. if map>0 then signal mapcall
  5106. signal main
  5107.  
  5108. bmarketdd:
  5109. transmit 'f1n3s1c8Pssst.....hey! Over here, v1! Come into the BLACK MARKET!s0w2'
  5110. signal bmarketddd
  5111.  
  5112. bmarketddd:
  5113. transmit 'f1'
  5114. bufferflush
  5115. sendfile mmpath||'bmarket.ans'
  5116. transmit 'n1caYou have $cb' money
  5117. query 'n1ccI can''t wait all day here! What''ll it be?? '
  5118. blm=upper(result)
  5119. if blm=p then signal quit
  5120. if blm='' then signal bmarketddd
  5121. if blm='Q' then signal computerdocs1
  5122. if blm>0 & blm<10 then signal blmweapon
  5123. if blm>9 & blm<23 then signal blmitem
  5124. if blm>22 & blm<27 then signal blmmagic
  5125. if blm=27 then signal blminfo
  5126. if blm>27 then signal bmarketddd
  5127. signal bmarketddd
  5128.  
  5129. blmweapon:
  5130. if blm='1' then wp=spiker
  5131. if blm='2' then wp=flame pistol
  5132. if blm='3' then wp=nova pistol
  5133. if blm='4' then wp=blamgun
  5134. if blm='5' then wp=peace keeper
  5135. if blm='6' then wp=grave pistol
  5136. if blm='7' then wp=udrak sling
  5137. if blm='8' then wp=quad cannon
  5138. if blm='9' then wp=quint cannon
  5139. if exists(wpath'stats/'wp)=1 then signal weaponboughta
  5140. signal bmarketddd
  5141.  
  5142. weaponboughta:
  5143. call open(1,wpath||'stats/'wp)
  5144. wcost=readln(1)
  5145. weapondam1=readln(1)
  5146. call close(1)
  5147. if salesman>99 then wcost=wcost/2
  5148. if money>=wcost then signal weaponbought2a
  5149. transmit 'ceYou do not have the funds necessary to buy this!w2'
  5150. signal bmarketddd
  5151.  
  5152. weaponbought2a:
  5153. transmit 'cdAce 'wp 'cdcosts $ce'wcost
  5154. sendstring 'cbDo you want it?c9 [No]ce '
  5155. getchar
  5156. an=upper(result);transmit 'cb'an
  5157. if an=p then quit
  5158. if an='Y' then signal weaponbought3a
  5159. transmit 'ceMAKE UP YOUR MIND!w2'
  5160. signal bmarketddd
  5161.  
  5162. weaponbought3a:
  5163. weapon=wp
  5164. money=money-wcost
  5165. weapondam=weapondam1
  5166. damage=weapondam+strdam
  5167. call savestats
  5168. call bmarketddd
  5169.  
  5170. blmitem:
  5171. if blm='10' then tm=tpassa
  5172. if blm='11' then tm=infoha
  5173. if blm='12' then tm=fvka
  5174. if blm='13' then tm=magnaga
  5175. if blm='14' then tm=novga
  5176. if blm='15' then tm=compchipa
  5177. if blm='16' then tm=saleschipa
  5178. if blm='17' then tm=mountchipa
  5179. if blm='18' then tm=asschipa
  5180. if blm='19' then tm=defchipa
  5181. if blm='20' then tm=medchipa
  5182. if blm='21' then tm=battlechipa
  5183. if blm='22' then tm=levelchipa 
  5184. if exists(wpath||'stats/'tm)=1 then call itembought1a
  5185. signal bmarketddd
  5186.  
  5187. itembought1a:
  5188. call open(1,wpath||'stats/'tm)
  5189. ittag=readln(1)
  5190. itcost=readln(1)
  5191. itbonus=readln(1)
  5192. call close(1)
  5193. if salesman>99 then itcost=itcost/2
  5194. if money>itcost then signal itembought2a
  5195. transmit 'ceYou do not have the funds necessary to buy this!w2'
  5196. signal bmarketddd
  5197.  
  5198. itembought2a:
  5199. transmit 'cdAce 'ittag 'cdcosts $ce'itcost
  5200. sendstring 'cbDo you want it?c9 [No]ce '
  5201. getchar
  5202. an=upper(result);transmit 'cb'an
  5203. if an=p then quit
  5204. if an='Y' then signal itembought3a
  5205. transmit 'ceMake up your mind!w2'
  5206. signal bmarketddd
  5207.  
  5208. itembought3a:
  5209. if tm=tpassa then signal tpassa1
  5210. if tm=infoha then signal infoha1
  5211. if tm=fvka then signal fvka1
  5212. if tm=magnaga then signal magnaga1
  5213. if tm=novga then signal novga1
  5214. if tm=compchipa then signal compchipa1
  5215. if tm=saleschipa then signal saleschipa1
  5216. if tm=mountchipa then signal mountchipa1
  5217. if tm=asschipa then signal asschipa1
  5218. if tm=defchipa then signal defchipa1
  5219. if tm=medchipa then signal medchipa1
  5220. if tm=battlechipa then signal battlechipa1
  5221. if tm=levelchipa then signal levelchipa1
  5222.  
  5223. levelchipa1:
  5224. experience=next+1
  5225. location=bmarket
  5226. money=money-itcost
  5227. signal levelup
  5228.  
  5229. battlechipa1:
  5230. level=20
  5231. experience=21000000
  5232. next=24000000
  5233. thaco=thaco-15
  5234. ac=ac+5
  5235. strength=strength+5
  5236. mental=mental+5
  5237. health=health+200
  5238. maxhealth=maxhealth+200
  5239. mrating=mrating+200
  5240. maxmrating=maxmrating+200
  5241. money=money-itcost
  5242. call bmarketddd
  5243.  
  5244. medchipa1:
  5245. medical=medical+80
  5246. money=money-itcost
  5247. call bmarketddd
  5248.  
  5249. defchipa1:
  5250. defense=defense+80
  5251. ac=ac+2
  5252. money=money-itcost
  5253. call bmarketddd
  5254.  
  5255. asschipa1:
  5256. assault=assault+80
  5257. thaco=thaco-2
  5258. money=money-itcost
  5259. call bmarketddd
  5260.  
  5261. mountchipa1:
  5262. mountaineer=mountaineer+80
  5263. money=money-itcost
  5264. call bmarketddd
  5265.  
  5266. saleschipa1:
  5267. salesman=salesman+80
  5268. money=money-itcost
  5269. call bmarketddd
  5270.  
  5271. comchipa1:
  5272. computers=computers+80
  5273. money=money-itcost
  5274. call bmarketddd
  5275.  
  5276. tpassa1:
  5277. tpass=yes
  5278. money=money-itcost
  5279. call bmarketddd
  5280.  
  5281. fvka1:
  5282. fvk=yes
  5283. money=money-itcost
  5284. call bmarketddd
  5285.  
  5286. infoha1:
  5287. uvir=yes
  5288. money=money-itcost
  5289. call bmarketddd
  5290.  
  5291. magnaga1:
  5292. magnagren=magnagren+1
  5293. money=money-itcost
  5294. call bmarketddd
  5295.  
  5296. novga1:
  5297. novagren=novagren+1
  5298. money=money-itcost
  5299. call bmarketddd
  5300.  
  5301. blmmagic:
  5302. if magic=no then signal youhavenomagica
  5303. if blm='23' then mm=nuke2a
  5304. if blm='24' then mm=heal3a
  5305. if blm='25' then mm=ragea
  5306. if blm='26' then mm=besteela      
  5307. if exists(tpath||mm)=1 then call magicbought1a
  5308. signal bmarketddd
  5309.  
  5310. youhavenomagica:
  5311. transmit 'ceYou are not capable of using magic!w2'
  5312. call bmarketddd
  5313.  
  5314. magicbought1a:
  5315. call open(1,tpath||mm)
  5316. mactag=readln(1)
  5317. maccost=readln(1)
  5318. malevel=readln(1)
  5319. call close(1)
  5320. if malevel>level then signal notenoughlevela
  5321. if salesman>99 then maccost=maccost/2
  5322. if money>maccost then signal magicbought2a
  5323. transmit 'ceYou do not have the funds necessary to buycf' mactag 'ce!w2'
  5324. signal bmarketddd
  5325.  
  5326. notenoughlevela:
  5327. transmit 'n1c9Your level is not high enough to learncf' mactag 'c9!w2'
  5328. signal bmarketddd
  5329.  
  5330. magicbought2a:
  5331. transmit 'cdAce 'mactag 'cdcosts $ce'maccost
  5332. sendstring 'cbDo you want it?c9 [No]ce '
  5333. getchar
  5334. an=upper(result);transmit 'cb'an
  5335. if an=p then quit
  5336. if an='Y' then signal magicbought3a
  5337. transmit 'ceMake up your mind!w2'
  5338. signal bmarketddd
  5339.  
  5340. magicbought3a:
  5341. if mm=nuke2a then signal ma1a
  5342. if mm=heal3a then signal ma2a
  5343. if mm=ragea then signal ma3a
  5344. if mm=besteela then signal ma4a
  5345.  
  5346. ma1a:
  5347. nuke2=yes
  5348. money=money-maccost
  5349. call bmarketddd
  5350.  
  5351. ma2a:
  5352. heal3=yes
  5353. money=money-maccost
  5354. call bmarketddd
  5355.  
  5356. ma3a:
  5357. rage=yes
  5358. money=money-maccost
  5359. call bmarketddd
  5360.  
  5361. ma4a:
  5362. becomesteel=yes
  5363. money=money-maccost
  5364. call bmarketddd
  5365.  
  5366. blminfo:
  5367. transmit 'f1n2s1cfSo you want to buy some information eh?w1s0'
  5368. query 'ceYou have $cf'money 'ceHow much do you want to spend? '
  5369. pay=upper(result)
  5370. if pay=p then signal quit
  5371. if pay='Q' then signal bmarketddd
  5372. if pay>money then signal deadbeat1
  5373. if pay<100000 then signal deadbeat2
  5374. if pay>99999 & pay<200000 then sendfile dpath||'info1'
  5375. if pay>199999 & pay<500000 then sendfile dpath||'info2'
  5376. if pay>499999 & pay<1000000 then sendfile dpath||'info3'
  5377. if pay>999999 & pay<2000000 then sendfile dpath||'info4'
  5378. if pay>1999999 & pay<5000000 then sendfile dpath||'info5'
  5379. if pay>4999999 then sendfile dpath||'info6'
  5380. money=money-pay
  5381. signal bmarketddd
  5382.  
  5383. deadbeat1:
  5384. transmit 'ceYou don''t have that much money, Deadbeat!w2'
  5385. signal bmarketddd
  5386.  
  5387. deadbeat2:
  5388. transmit 'ceI won''t tell you anything for less than $100,000.00!w2'
  5389. signal bmarketddd
  5390.  
  5391. gamblingdd:
  5392. transmit 'f1n4c9So you want to lose your money eh?w1'
  5393. transmit 'n1cfYou have $ca'money
  5394. query 'n1cbHow much are you willing to wager? c9[Quit]cf '
  5395. bet=upper(result)
  5396. if bet=p then signal quit
  5397. if bet='Q' then signal computerdocs1
  5398. if bet='' then signal computerdocs1
  5399. if bet>money then signal giveitup
  5400. whl=VRnd(1,80)+gambling
  5401. if whl<100 then signal youlose
  5402. if whl>99 & whl<150 then win=bet/4
  5403. if whl>149 & whl<180 then win=bet/2
  5404. if whl>179 & whl<195 then win=bet
  5405. if whl>194 then win=bet*2
  5406. transmit 'ceYou just won $c9'win 'w2'
  5407. money=money+win
  5408. signal gamblingdd
  5409.  
  5410. giveitup:
  5411. transmit 'ceYou don''t have that much money!w2'
  5412. signal gamblingdd
  5413.  
  5414. youlose:
  5415. transmit 'ceYou lost big there, buddyw2'
  5416. money=money-bet
  5417. signal gamblingdd
  5418.  
  5419. VRnd: procedure   /*  Very Random v1.1  [c] 1990 Shane D. Killian  */
  5420.    arg lo,hi      /*    Feel free to use this as long as these     */
  5421.    n1 = time('E') /* comments remain intact.  Works like random(). */
  5422.    n2 = time('S')
  5423.    parse var n1 n11 '.' n12
  5424.    n1 = n11 || n12
  5425.    if lo > hi then do
  5426.       x = lo
  5427.       lo = hi
  5428.       hi = x
  5429.    end
  5430.    if hi ~= lo then do
  5431.       d = hi - lo + 1
  5432.       x = length(d)
  5433.       n1 = right(n1,x)
  5434.       n2 = right(n2,x)
  5435.       p = d
  5436.       if p > 999 then p = 999
  5437.       r = n1 + n2 + random(0,p)
  5438.       r = r // d + lo
  5439.    end
  5440.    else r = hi
  5441. return r
  5442.  
  5443.